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PREFACE 


This manual js intended as an introduction to programnaing in HAL/S The reader is 
presumed to have some experience using one or more procedure-onented languages such as 
FORTRAN or PL/I The book may be used either as part of a selLstudy program or in con- 
junction With a course of twenty to forty classroom hours over a penod of one to two 
weeks 

The matenal is organized as a tutonal rather than as a reference book Furthermorej it 
IS intended as an introduction to HAL/S rather than as a definitive exposition After com- 
pleting the course, the reader should refer to the HAL}S Language Specification or the 
HALfS Programmer's Guide for a more detailed and complete descnption of the language 

It is impossible to give proper credit to all the people at NASA, IBM, and Intermetrics 
who have contnbuted to this book Special recognition must go to Josephine Jue, John 
Schwartz, and A1 MandeUn for their detailed review of several drafts of the manuscript, to 
Gary Singer for performing the final editing and page layout, and to Valene Censabella who 
typed all of the manuscripts and got the majority of the exercises through the HAL/S-360 
compiler 

Support of the HAL/S language, compilers, and documentation is an ongoing effort of 
NASA and Intermetncs Comments on this manual will be appreciated and will be incor- 
porated into subsequent editions All comments or inquiries should be addressed to 

HAL/S Language Group 
NASA- Johnson Space Center 
FR/Spacecraft Software Division 
Houston, Texas 77058 
{713) 483-2151 


Michael J Ryer 
September 1978 
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1 0 INTRODUCTION 

HAL/S IS a computer programming language, it is a representation for algonthms which 
can be interpreted by either a person or a computer HAL/S compilers transform blocks of 
HAL/S code mto machine language which can then be directly executed by a computer 
When the machine language is executed, the algorithm specified by the HAL/S code (source) 
is performed This document descnbes how to read and wnte HAL/S source 

HAL/S was developed prmcipally for real-time aerospace programming Its most signifi- 
cant use to date has been the production of the NASA Space Shuttle Flight software This 
intended application imposed three major constraints on the language design reliability, 
efficiency, and machine-independence Reliability and efficiency are obvious requirements 
of flight software The maclune-mdependence requirement stems from a desire to minimize 
programmer training, to transfer blocks of proven code between distinct NASA projects, 
and to reduce the dependence on flight hardware availability 

Within these constramts, the language provides simple and intuitive constructs for func- 
tions commonly performed by aerospace applications, such as vector/matnx arithmetic 
More generally, HAL/S is suitable for real-time process control apphcations, particularly 
where mathematically-oriented algorithms are involved While the language is “tuned” for 
aerospace, the machme-mdependence and reliability aspects of HAL/S make it attractive for 
a variety of applications which do not perfectly match the original intent 

It may seem strange to some readers to attribute reliability to a programming language 
rather than to programs written m that language This viewpoint is an outgrowth of the 
study of structured programming A reliable program produces correct results for ail pos- 
sible combinations of inputs Since it is usually impractical to exercise the program on all 
possible inputs, programs must be venfied by induction The assertion is made that if the 
program passes a particular set of tests, then the program will produce correct results for 
any set of inputs This assertion is always based on an understanding of the program’s 
internal workings If the logic of a program is misunderstood, the results of venfication 
cannot be reUed upon 

Although It IS difficult to assess the psychological imphcations, certain high order lan- 
guage constructs (e g , the GOTO) are known to be symptomatic of unreliable programs 
These constructs have been eliminated or highly restncted m HAL/S 

1 1 LEARNING HAL/S AFTER FORTRAN 

HAL/S IS similar to FORTRAN in many ways The assignment statement is essentially 
the same m both languages The FORTRAN concepts of subroutines, arrays, common 
blocks, and hbrary routines all have analogues m HAL/S Some concepts have been ex- 
tended, for example, the FORTRAN statement A=B+C, can be used to add either integers 
or reals The compiler generates mstructions appropnate to the types of A, B, and C In 
HAL/S, the same concept apphes, but A, B, and C may also be vectors, matrices, or arrays 
of any type HAL/S has many more data types than FORTRAN 

Every variable used m a HAL/S program must be exphcity declared before it is refer- 
enced This IS done via the DECLARE statement, which specifies the name of the variable 
and its attnbutes (including its data type or "mode”) The need to declare variables results 
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from the wide vanety of data types in HAL/S It also allows the compiler to check for mis* 
use of data and to enforce certain programming standards For example, a FORTRAN pro- 
grammer might divide a variable containing alphanumenc character data by the number 256 
in order to access the leftmost byte HAL/S does not allow any anthmetic operations on 
character data since such operations usually depend on the particular character code in use 
and are thus machine-dependent Instead, individual characters may be extracted from a 
character vanable by exphcit subscnpting Similarly, binary (logical) data is a distinct data 
type The AND, OR, and NOT operators may be used with BOO LEANS or BIT strings, but 
not with arithmetic data 

These restrictions may seem awkward at first, but with experience it will become quite 
natural to select the appropriate type for each vanable m advance HAL/S includes con- 
structs for data type conversions, but these conversions are needed less frequently than an 
expenenced FORTRAN programmer might expect 

Another major difference between HAL/S and FORTRAN is in the flow-control (branch- 
ing) statements Structured programming research has had a major impact in this area In 
essence, the vanous forms of GOTO statement have been replaced with more reliable con- 
structs The distinction may be characterized as “flow control by nesting of statements” 
rather than “flow control by branching” While this difference of philosophy may make 
the transition to HAL/S from FORTRAN more difficult, it can be argued that the HAL/S 
form is more English-like and thus move intuitive Purthermore, using the HAL/S flow-con- 
trol constructs instead of GOTOs tends to result in a program which can be read sequentially 
(from top to bottom) Loops and decisions are expressed exphcitly in HAL/S rather than 
imphed by a convoluted arrangement of forward and backward branches In any case, most 
modem programming languages (including FORTRAN ’77) have flow control statements of 
the type found in HAL/S 

While the treatment of datatypes and flow control are the most fundamental differences 
between HAL/S and FORTRAN, the differences in source and listing formats are the most 
noticeable The source format is somewhat freer than in FORTRAN The output listing 
format, however, is not under programmer control at all Every HAL/S listing is put in a 
standard format by the compiler Each HAL/S statement is placed on a new line and auto- 
matically indented to show its relationship to other neighbonng statements Exponents and 
subsenpts are raised and lowered (respectively) in the hsting, and vanous additional informa- 
tion (compiler-generated annotation) is added Thus, the work of the programmer is reduced, 
the mdenting is always correct (since the compiler re-computes it every time), and reading a 
listing requires no knowledge of the individual programmer’s style 

Other major differences between HAL/S and FORTRAN are m the areas of Real-time 
mteractions, and the interfacmg of separately compiled units These advanced topics are 
thoroughly discussed in chapters eleven and twelve of the text 

1 2 HAL/S CONTRASTED WITH OTHER HIGH ORDER LANGUAGES 

The differences between HAL/S and other high order languages anse from the charac- 
teristics of aerospace apphcations, and the time-frame in which HAL/S was designed HAL/S 
was developed between 1970 and 1972 Since that time, changes which would invalidate 
existing HAL/S code have been resisted Thus, some recent advances m language design have 
not been incorporated Note, however, that the language did evolve from a thorough study 
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of the existing languages Most of tlie concepts winch have been developed since that time 
have not been implemented in any operational (rather than expenmental) language When 
these concepts (e g , data abstraction) have been proven outside of the university environ- 
ment, they may be incorporated in HAL/S There is an established language control board 
which continuously reviews the state of the art and suggests and/or approves changes to 
HAL/S 

Some features which were in common use at the time were excluded due to efficiency 
considerations These include recursion and dynamic storage allocation In addition to the 
overhead normally associated with these facihties, a reliability problem is avoided by their 
exclusion Because of these and other exclusions, the total storage requirement of a HAL/S 
application can be exactly determined before execution starts Consequently, HAL/S pro- 
grams can never run out of storage dunng execution This safety feature is essential in 
aerospace apphcahons 

Other constructs, such as the full generality of the PL/1 error recovery system, have also 
been omitted for reasons of efficiency 

HAL/S also lacks sophisticated facilities for dealing with ground-based penpheral devices 
(pnnters, plotters, etc ) Character-onented I/O statements are provided for testing and 
development, but many I/O facilities provided by ground-based operating systems are in- 
accessible from HAL/S This is due to the design emphasis on. flight software, and the lack 
of standardization of the concepts and facdities of ground-based operating systems 

HAL/S stresses readability rather than “wntability" This approach acknowledges the 
fact that a program is written once (generally by one person), but is read many times (and 
often by many people) For mstance, tliere are no abbreviations for HAL/S keywords 
Furthermore, all of the keywords are “reserved” No confusion can anse from vanable 
names which duplicate keywords, because no such re-use of a keyword is allowed 

On the other hand, HAL/S includes some facihties which other languages lack Vector/ 
matrix arithmetic has already been mentioned HAL/S vectors and matrices are distinct 
from arrays, and are supported by a full set of operations These include cross and dot 
product, as well as addition, subtraction, multiplication, division, and exponentiation AH 
are defined according to the usual rules of mathematics 

Although HAL/S contains features abstracted from a variety of languages, it exhibits a 
considerable uniformity For instance, a portion of a vanable is always selected by subscnpt- 
ing, whether the vanable is a 3-vector, a character string, or a set of bits compnsing a 
computer word 

Finally, there is one difference which is not exhibited in the language per se This may 
be termed the “system” aspect of HAL/S In addition to the hstmg and a machine-language 
“object module”, the compiler generates a machine-readable random access file containing 
information about every vanable and statement in the program This file is then used by 
various sta'fistics and diagnostic packages Furthermore, some compilers can optionally in- 
sert “hooks” (diagnostic package interfaces) m the generated code These interfaces are used 
in a functional simulation (FSIM) execution mode 
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FSIM IS a tool which allows flight code to be developed and tested on ground-based 
computers It includes a model of the flight operating system, and simulates the timing of 
the flight computer It also includes provisions for the simulation of avionics I/O This is 
done m such a way that flight code can be executed on a ground-based computer without 
any source-level changes whatsoever Debugging commands are entirely based on the HAL/S 
source, the program can be debugged without knowing any details of the ground computer 
hardware More information regarding the compiler and related software can be found in 
Appendix B of this manual 

1 3 HAL/S CONTRASTED WITH THE ASSEMBLY LANGUAGE 

This manual is primarily intended for experienced high order language programmers, this 
section presents some brief background information for programmers whose expenence has 
been primarily in assembly language 

The term “high order language” refers to languages m which a line of source produces a 
vanable number of machme instructions Some readers may initially view HAL/S as a tool 
for specifying machine instructions more compactly 

Many assemblers allow expressions, such as “A+B/C” in certain contexts where a num- 
ber IS needed The symbols used in these expressions must have values known to the assem- 
bler, 1 e , A, B, and C must be equated to constants in some way or must be macros which 
expand to constants or hterals The computation is done at assembly time and the output of 
the assembler contains just the value of the expression 

This facility is present in HAL/S There is, however, an important distinction if the 
values of the symbols used in a HAL/S expression are not known at corapile-time, then ma- 
chine instructions are generated to perform the computation at run-time Most of the com- 
putation in a HAL/S program is specified by means of expressions There are no ADD or 
SUBTRACT HAL/S statements, ail arithmetic is done with operators (e g , etc ) 

The “+” operator will add integers, scalars, vectors, matnces or arrays of any of these basic 
types The same operator performs both smgle and double precision anthmetic Thus, the 
compiler “decides” what particular machme instructions are appropnate to add the specified 
operands together This is one type of bookkeeping that is automated by the compiler 

This approach illustrates another meaning of “high order language” the programmer 
is farther removed from the details of the computer hardware The programmer specifies 
a function (e g , addition) and the compiler maps it into the computer’s repertoire (e g , 
LOAD, ADD, STORE) All addressing and instruction usage decisions are also the province 
of the compiler 

Unlike a macro assembler, the compiler does not always generate the same instruction 
sequence for a given source statement It can “remember” whether a vanable is still m a 
register from some pnor statement, and, if so, avoid re-loadmg it The compiler may also 
move an entire computation out of a loop if none of the variables referenced are modified 
within the loop Generally, the compiler is free to makeaiij? re-arrangement of the program, 
provided that the same results will be produced from its execution This means that it is 
nearly impossible to predict what machme instructions will be generated when a particular 
HAL/S statement is compiled Hence, the best pohcy is to specify the desired function in 
the most intuitive way and ignore the mapping into machine instructions 
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There is no way to reference a particular machine register or word of memory in a 
HAL/S program Operations are performed on variables and constants rather than addresses 
and registers AH such assignments are made by the compiler A large class of potential 
programmer errors Ce g , use of the wrong register) is avoided by this approach 

1 4 INTRODUCTION TO THE MAIN TEXT 

The following chapters describe the HAL/S Language, a few advanced features are 
omitted, but most of the language is covered, including all of the frequently used con- 
structs This manual is intended for sequential reading The HAL/S Language Specification 
IS more appropriate for use as a reference, since it is concise, complete, and fully cross- 
referenced This manual, being tutonal m nature, descnbes each facet of tiie language in 
terms of the material presented in previous chapters interactions between separate con- 
structs are not discussed until each construct has been described separately Each chapter 
IS a prerequisite to the next, but no other knowledge of HAL/S is assumed 

Another document, the HAL/S Programmer’s Guide, is also tutorial in nature, but 
each chapter is self contained material is repeated mstead of referenced Hence, the 
programmer’s guide may be the best choice for “brushing up” on some particular aspect 
of the language 

The information needed to compile (link, run and debug) a HAL/S program, once it 
IS written, can be found in the HAL/S User’s Manual for the particular compiler m use 
These documents also describe variations among compilers (i e , implementation 
dependencies) 

The chapters which follow explam HAL/S primarily by example The form of each 
construct is always shown by example, the examples are so constructed that the meanings 
of new forms can be deduced Those who learn easily from examples may find portions of 
tlie English explanation redundant In every case, the examples are intended to be read from 
top to bottom when they are first referenced, rather than after tiie new constructs have 
been explained 

The occasional tables and lists need not be memonzed If the exercises can be done 
after one readmg, further study is not needed The most important constructs are used 
freely m subsequent chapters, thus providing a continuous review of earlier material It 
would be difficult to learn HAL/S without wntmg any HAL/S programs, about one-half of 
the exercises require programming Answers to all are given in Appendix C 

Computer words which are not defined herein (e g , algorithm, program) may be taken 
at their conventional meanmgs In some cases, a more precise HAL/S meaning is given later 
Definitions are denoted by italics as in “the form and meaning of a language construct are 
generally termed itssyn/ox and semantics, respectively ” 

Chapter Two contains enough information to write a HAL/S program that really does 
something Chapter Three completes the topics mtroduced in Chapter Two, pnmarily addi- 
tional forms of the arithmetic expression The remaining chapters discuss flow control, addi- 
tional data types, and advanced topics such as real-time programming 
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2 0 READING, WRITING, AND ARITHMETIC 

The basic rules for writing a HAL/S program are shown in the example below ^ 

SIMPLE PROGRAM, 

C CODE IN THIS TYPEFACE IS 

C HAL/S SOURCE 

DECLARE PI CONSTANT (3 14159266), 

DECLARE R SCALAR, 

READ(5) R, 

WRITE{6) PI R--2, 

CLOSE SIMPLE, 

2 1 WRITING A HAL/S PROGRAM 

The example above consists of six HAL/S statements and two comments The first state- 
ment serves to illusttate several conventions used throughout the language 

1 . Every program begins with a labeled PROGRAM statement 

2 HAL/S statements are labeled by preceding them with an identifier and a colon 

3 Ail HAL/S statements end with a semi-colon 

The two lines followmg the PROGRAM statement are comments For further clanfica- 
tiqn, additional hnes could be used Any hne containing a C in column one is a comment 
Comment lines may be placed anywhere in a program 

The next statements are DECLARE statements These statements form the declare 
group, which precedes the executable statements m every program vanables are created via 
the DECLARE statement Variables must always be declared before they are used READ 
and WRITE are executable statements The numbers 5 and 6 in parentheses are channel 
numbers They control the routmg to and from an external device Many other executable 
statements will be introduced in later chapters CLOSE, like PROGRAM, is a delimiting 
statement It is the last line of every program The block delimiting statements are further 
discussed in chapter seven This chapter stresses the DECLARE statement and the assignment 
statement (not shown above) 

In this simple example each statement could be punched onto a card just as shown 
HAL/S source is free format There are no rules about particular card columns except 
column one Column one must contain one of the characters E, M, S, C, D or blank Normal 
statements are written with a blank in column one “C” is used for comments, the use of 
the other characters will be discussed later 

When a program is stored on disk or tape the format is the same Column one is defined 
as the first character of a record or the character followmg an end of line code With this 
exception, the arrangement of HAL/S source on cards or records does not affect its inter- 
pretation by the compiler The example above could also be put as 
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SIMPLE PROGRAM, 

C THIS IS HAL/S SOURCE 

DECLARE PI CONSTANT (3 14159266), DECLARE 
R SCALAR, READ(5) R, WRITE(6) 

PI R**2, CLOSE SIMPLE. 

Longer programs are not always wntten correctly the first time Placing only one state- 
ment on a line makes later modifications much easier “ 

Since every statement ends with a semi-colon, no additional convention is needed for 
long statements It is the semicolon rathei than the end of a line that marks the end of a 
statement To put a comment after a statement on the same line, the fonti can be used 
For mstance 

READ(5)R, /““OBTAIN RADIUS*/ 

WRITE(6) PI R**2, /* ** MEANS EXPONENTIATION */ 

This type of comment may be placed anywhere a blank is allowed (except in column 
one) It consists of any string of characters beginning with “/*” and ending with “*/” As 
the example shows, “■*” and may be used within the string' in any combination other 
than “*/” 


The WRITE statement could also be coded as 
column 1 
E 

M ^VR1TE(6) PI r2, 

Here, column one is used to distinguish between main and exponent lines Some implemen- 
tations of HAL/S accept a two dimensional input format in which exponents and subscripts 
are indicated by their positions Multi-Ime input is generally not used however, since enter- 
ing and maintaining source in this form is cumbersome under common editors or on cards 
The compiler produces hstings m the multi-line format but all source in this book will be 
shown in the single-Iine form 

The preceding paragraphs descnbe the placement of statements in a file or on cards 
Next we will discuss the format of individual statements 

The PROGRAM and CLOSE statements contain the two keywords, an identifier, and 
punctuation Keywords are the “verbs” m HAL/S Each has a predefined meamng, and so 
cannot be used as a variable name A complete list of keywords is given in Appendix D 
All of the HAL/S keywords are made up of the letters A through Z Except for ARCTAN2 
function, no numerals are used The underscore, or, “break character” {_) is not^used in 
any HAL/S keyword 


*Some debugging systems allow a breakpoint to be set at the statemenron a particular card (specified by 

sequence number) Placing only one^stateraenl^per line.also.simphfies this usage 
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Blanks, or spaces, are significant in HAL/S For instance, DECLARER is a valid identi- 
fier It would neve} be interpreted as DECLARE R Blanks must be coded between key- 
words and identifiers m any combination Except m comments and character strings, 
however, there ts no difference between one blank and many blanks 

The compiler sees its input as a continuous stream of characters, i e , the concatenation 
of columns 2 throu^ n of the entire input file This input is split into words at the punctua- 
tion blanks, commas, semi-colons, etc The punctuation is in two categones delimiters 
such as , „ and blank, and operatois such as +, — , blank, and / When a blank appears 
between two identifiers or expressions it serves as the multiplication operator Otherwise, 
it IS a dehmiter 

Using the punctuation, the compiler breaks its input into a senes of tokens Tokens are 
of four types 

1 Keywords such as DECLARE 

2 Identifiers such as R 

3 Operators such as ** or blank 

4 Litera/j such as 3 ‘14159265 

Each HAL/S statement is defined m terms of these token types For instance, the basic 
DECLARE statement consists of the keyword DECLARE followed by an identifier 
followed by attributes The attnbutes consist of keywords and literals Like all statements, 
DECLARE ends with a semi-colon 

Identifiers consist of vanable names and labels The identifiers m the sample program 
are SIMPLE, PI, and R Identifiers may be from one to thirty-two characters in length, 
and composed from the letters A-Z, the numerals 0-9 and the underscore. The first character 
must be a letter, the last may not be an underscore Selection of names is entirely up to 
the user 

DECLARE SIGMA CONSTANT (3 14159), 

IS syntactically correct The underscore may be used in an identifier to wnte an identifier 
composed on more than one word DELTA_V and TIME_TO_GO are valid identifiers 

There is a trade-off in identifier lengths Very short identifiers, such as RLNGL, make 
for cryptic code, whereas very long identifiers, such as CURRENT_VEHICLE_ROLL_ 
ANGLE, make it hard to find operators and match up parentheses in expressions Identifiers 
may not be started on one card and continued on the next Since the card boundary serves 
as a delimiter equivalent to a space, long names can be awkward 

HAL/S does encourage selMocumenting programs through meaningful identifier names 
This author’s preference for a mixture of long and short names is generally displayed 
throughout this manual Sometimes this text uses underscores and numerals in identifiers 
to distinguish them from keywords The HAL/S keywords cannot be used as identifiers A 
few to be careful of are SUM, IN, SET, LINE and TRACE None of the keywords are less 
than two characters 
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The third type of token is an operator HAL/S includes logical and character operators 
as well as the arithmetic operators listed in Section 2 2 

The fourth type of token is a literal There are arithmetic, character, and bit Uterals, 
though only arithmetic literals are of concern now Throughout this book, anthmetic 
hterals are called simply numbers 

While HAL/S has both integer and scalar datatypes, it does not distinguish between 
integer and'scalar numbers “3” is completely-equivalenMo “3 0” ‘-3 141-59” is completely 
equivalent to “314159/100000”, and to “3I4159E-5”, “31415 9E4” and so forth The 
character E is used in numbers to indicate scientific notation The form “3 I4159E-5” is 
interpreted as 

314159 X 10-5 


or 


(3l4l59)10“*(-5) 

Thus, numbers can be wntten as a sequence of digits with or without a decimal point, 
optionally followed by the letter E and one or more digits The minus sign (— ) is used for 
negative numbers and exponents The HAL/S Language Specification descnbes the use of 
other exponent letters to specify powers of two or sixteen instead of ten 

No blanks may appear in a number Blanks must separate numbers from adjacent key- 
words, identifiers and literals 

The statement, 

DECLARE PI CONSTANT(3-t-l/7), 

is completely valid “3 -t- l/7’‘ is considered a number rather than an expression An ex- 
pression which contains only numbers, CONSTANTS, and the basic anthmetic operators is 
said to be computable at compde-time Instead of generating code to evaluate such an 
expression at runtime, the compiler will convert the expression to a simple number Only 
the value is kept at runtime, the addition and division in “3 + 1/7” are performed dunng 
compilation When this manual refers to numbers, any expression which can be reduced to 
a number dunng compilation is included 

In summary, a HAL/S program begins with a labeled PROGRAM statement and ends 
with a CLOSE statement In between is a declare group followed by executable statements 
These statements may be arranged in any convenient way on successive cards or lines, pro- 
viding that column one is blank Declaration and executable statements must end with a 
semi-colon Both comment lines and comments within statements are allowed Statements 
consist of a sequence of tokens separated by blanks or other punctuation, the tokens are of 
four types keywords, identifiers, operators, and hterals Most of the HAL/S keywords and 
operators will be described later The rules for formmg and recognizing tokens of each type 
have been presented here 
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Exercises 


2 lA Some of the following are valid HAL/S tokens, some are not Identify the valid 
tokens, and state the type of each 

Note Appendix D contains a complete list of KAL/S keywords 

a) TEST_TIME 

b) CHARACTER 

c) TRY AGAIN 

d) 7 lE-14 

e) X 

0 lABC 

g) DEC_LARE 

h) INITIAL 

0 ALTITUDE. 

j) TRUE 

k) 42 1 

l) quite1a_long_string 

m) 10000000 


2 2 ARITHMETIC EXPRESSIONS 

Like most high order languages, HAL/S allows numeric computations to be specified 
in a form very similar to ordinary mathematical notation For instance, the equations below 
should be quite recognizable in their HAL/S forms 

AREA.CIRCLE ^ PI R*-*2, 

AREA.TRIANGLE = 1/2 B H, 

AREA.PYTHEGORUS = (H**2 - B**2)-='(l/2), 

AREA.TRAPEZOID = H(A+B}/2, 


/^CIRCLE**/ 

/^TRIANGLE-"/ 

/*PYTHAGORUS’‘/ 

/^TRAPEZOID*/ 


This example illustrates the forms of some familiar equations in HAL/S. As in other lan- 
guages, the successive assignments to AREA are not functional 


This example shows four assignmenl statements as well as a number of anthmetic ex- 
pressions The assignment statement is much as in other languages The value of the expres- 
sion on the right of the equals sign is assigned into the variable on the left This section is 
pnmanly concerned with the evaluation of the expression on the right hand side 

The example shows addition, subtraction, multiplication, division and exponentiation 
operators As m mathematical notation, muUipiication is indicated by adjacent factors No 
special character is used to stand for multiplication Sometimes the blank is referred to as a 
multiplication operator, since adjacent identifiers must always be separated by a blank 
However, it is the adjacency not the blank that indicates multiplication For instance, 
"PI R’'='2” can be wntten without a blank as "PI(R*'"2)” or “(PI)R*-^2” or “R(PI)R” 
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The other basic operators contain no surpnses The hyphen or minus sign is used for 
both subtraction and negation Parentheses control the order of valuation in the usual way 
The table belowshows the majordifferences between HAL/S and mathematical conventions 


Mathematical Notation 

HAL/S Expression 

ab 

a b 

2x 

2 X 

nx»^-I 

n 1) 

-(c+d) 

-(c+d) 

(nr 

(Ca+b)/(c-d))-*2 5 

xy 

-2ab 

(X y)/(-2 a b) 

a(x+l) 

(a (x+1) 


Mathematics defines several conventions to reduce the need for parenthesis m expres- 
sions For example. 


A X + B Y 

is always interpreted as the sum of two terms, (A X) + (B Y) rather than as the product of 
three factors A(X+B)Y These conventions are stated m terms of the order of evaluation of 
vanous constructs In particular, multiplication and division are performed before addition 
and subtraction HAL/S incorporates these rules by defining a precedence for each operator, 
as shown below , 


Precedence of Operators 

** exponentiation first 
multiplication 
I division 

+, - addition 
subtraction 

Note that multiplication is done before division ratherthan at the same time as m some 
languages 

Given this precedence, the expression 
AX^ + BX C, 

IS evaluated correctly when wntten in HAL/S without parenthesis 


A X*’"2 + B.X - C 
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The equivalent form with parenthesis is 
((A(X‘-*'2)) + (B X)) - C 

If stnct left-to^ight evaluation was desired, this could only be indicated by parentheses, as 
shown below 

((A X)*“2 + B)X - C 

When an expression contains several operators of the same precedence, they are 
evaluated from left to right for all operators except for exponentiation and division These 
are evaluated nght to left To see why this is true, consider the definitions below 

A 

b = a9. 

C B 

The first expression is wntten 




If X = 4, Y - 3 , and Z 2, this is 

4““3*"2 s 4”*(3**2) = 4^ 

if the natural sequence was overndden via (4“'*3)’‘''2, 16^ would be produced Likewise, 
A/B/C IS naturally interpreted as A / (B/C), which is indeed equal to A(C/B) 

Other operators of equal precedence are evaluated from left to right Addition and 
multiplication are commutative and associative, so the order does not matter except for pre- 
cision analysis Subtraction, however, is neither, and the order of evaluation does affect the 
results The HAL/S expression, 

A - B - C 

is interpreted as (A 7 -B) — C 

The distinction between numbers and expressions is somewhat blurred in HAL/S As 
already stated, any expression that can be computed in advance (during compilation) can 
be used wherever a number is required Furthermore, a negative number (eg, —1) is 
actually an expression, containing the number 1 and the negation operator The presence of 
a blank between a minus sign and a literal is irrelevant 2A” is the product of A and —2, 
but “A —2” IS a subtraction even though there is no space between the minus sign and the 2 

The construct, “A/— 2” is illegal The minus sign is seen as an operator, and HALfS 
never allows two operators in succession This division could be wntten as “A/(— 2)” or 
more sensibly as A/ 2 ’^ 
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To summanze precedence rules, 


HAL/S has defined the precedence of each operator to correspond to the usual 
mathematical conventions, BUT WHEN IN DOUBT, PARENTHESIZE 


Anthmetic expressions may contain a variety of arithmetic types Integers, scalais, 
vectors, and matrices If one vanable of each type is created as follows 

DECLARE S SCALAR, 

DECLARE I INTEGER, 

DECLARE V VECTOR, 

DECLARE M MATRIX, 

The foliowmg multiplications and assignments are legal 

S = VV, 

V = V“^V, 

V = V M, 

M = V V, 

M = M M. 

V = V s, 

M = M S, 

They are, respectively the dot (inner) product, the cross product, the vector matnx prod- 
uct, the vector outer product, the matrix product, and the scaling of a vector and a matnx 
They produce results of the types indicated by the target vanable (left hand side) of these 
assignments This is a necessity rather than a coincidence Every expression has a datatype 
and assignments can only be made between hke types 

Identical data types are not required Since integers and scalars may be used inter- 
changeably, the following combinations are also legal 

I = VV, 

V = V I, 

M ^ M I, 


as are all eight combmations of mtegers and scalars alone This, however, exhausts the 
combinations that can be written with the four vanables declared above Not all operators 
apply to every combination of datatypes For instance, the addition of a vector to a matnx 
IS not permitted In general, operations which are undefined in mathematics are illegal in 
HAL/S 

By default, vectors and matnces are of size 3 and 3x3 Section 2 3 explores other pos- 
sibilities and defines the operators in more detail At this point it suffices to say that 
wherever a vanable of a given type is allowed m an expression, a parenthesized expression of 
the same type is also allowed, e g , 


V = V*((V SIM), 
M = M(V V), 
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2 21 A Compiled Example 

With the names (I, S, M, and V) used in the previous section, the type of each vanable is 
apparent Most apphcations would require a better notation This is provided by the com- 
piler as shown below 


n 

n 

rt 

H 

H 

rt 

E 

H 

E 

H 

E 

H 

E 

n 

E 

M 

£ 

M 

M 


PATATYPES. 

PROGPAM, 

PECURE 3 SCAUR, 
DECLARE I IMTEGER, 
DECLARE V VECTOR, 
OECLAPE M MATRIX, 

s = V V, 

V = V * V, 

- - * 

V = V M, 

X - - 

M = V V, 

*■ « » 

M = H M, 

V = V SI 

CLOSE DATATYPES; 


This bsting was automatically produced from the preceding HAL/S statements by a 
HAL/S compiler No changes to the source were made The astensk and hyphen overmarks 
appear only in the listing, they are not coded by the programmer The compiler indicates 
the type of each vanable m a compilation via the overmarks shown below 

Integer and Scalar none 

Vector — 

Matrix * 

Character , 

Bit and Boolean 

I 

Structure + 

Other differences between the source and the listing are 

1 The compiler controls spacing, indenting, and the arrangement of statements on 
lines in the listing The source format is irrelevant 

2 Statements in the listing always appear m multi-line format, with raised exponents 
and lowered subscripts 

The compiler marks each line of the listing with an E, M, or S to indicate exponent, 
mam, and subscript lines These characters, as well as “C” for comments, appear outside the 
box in the examples Some blank lines have been removed, and DECLARE statements are 
sometimes used in several examples without being repeated Any HAL/S code which appears 
in a box like the one preceding is extracted from an actual listing It has not been re-typed 
and IS therefore free of any syntax errors 
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The standardized bstmg format produced by HAL/S compilers isolates the reader of 
a program from the style of its author Hie same Lsting will result whether the source was 
entered with minimum spacing on as few lines as possible, or was entered one token per line 
As a result, the listing format is a reliable source of information about a program’s structure, 
mdependent of individual programmers Since the indenting in the listing is re-computed at 
each compilation based at the flow control statements in the source, it is always up to date, 
and changes to the source can be made without undue concern over spacing 

This completes the discussion olLHAL/S source and listing formats More-information 
about anthmetic data will be needed to proceed with the topic of anthmetic operations 

Exercises 

2 2A Write HAL/S expressions equivalent to the following mathematical expressions 

a) ax+by+cz 

b) +J- 

c e-i-f 

c) 2*^~^ 

2*^-1 

d) x^-3x2+3x-1 

e) (x-1)^ 

f) 10^^ 

g) (10’')^ 

h) ^ V (V, W are vectors, ‘ ’ means dot product) 

VV 

2 2B Tlie left-hand column contains mathematical expressions that are incorrectly coded in 
HAL/S in the right-hand column Find the errors and rewrite each expression 
correctly 

a) mx+b M*X+B 

b) 2(x+l) 2X+1 

c) 5n X"-^(-2 5N) 

d) c“^ C’'"-5 

e) ^ 

bd 


AC/BD 
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2 3 DECLARING DATA 

The example below is a declare group which shows the three different forms of DE- 
CLARE statements 


H 

K 

« 

K 

K 

» 

n 

H 

H 

H 


DECLARES 

PROGRAM. 

DECLARE COUNTER INTEGER, 

DECLARE VECTOR, 

POSITION, VELOCITY, TOROUEi 
DECLARE NEH CO OROS MATRIX, 

SPEED SCALAR, 

N INTEGER, 

HIND FORCE VECTOR, 

CLOSE DECLARES, 


The first form is the simple DECLARE statement used previously Tire next two forms are for 
convenience m declarmg many vanables The effect is the same as a number of simple 
declare statements The second form is a factored declare statement It is disfanguished by 
the appearance of a data type before the variable names The data type applies to all of the 
identifiers in the list This example creates tliree 3-vectors 

The third statement m DECLARES is a compound declare statement This form is used 
either to avoid re-typing the word DECLARE, or to show that a group of variables are re- 
lated Tins grouping capability can aid in the attempt to document a program in the code as 
well as in the comments 

Like all HAL/S statements, declarations may be entered m free format The example 
above shows how the compiler arranges the tokens in the listing 

The simple declare statement consists of DECLARE, a vanable name, and the attributes 
of that vanable The factored declare statement consists of DECLARE, a set of attributes, a 
comma, and a list of identifiers to which the attributes apply The compound declare state- 
ment consists of DECLARE and a list of identifier-attributes pairs, separated by commas 

The three forms of DECLARE are for convenience and documentation A vanable of 
any type can be created using any form, and the type of declaration used does not affect 
the way the data is allocated or referenced 

The attributes of an identifier consist of its data type, precision, dimensionality, initiah- 
zation, lock group, and so on The only attribute that is tequiied in a declare statement is 
the data type Several other attnbutes are descnbed in Chapters three and six 

The INTEGER type is used for counters, indexes', status indicators, and other applica- 
tions where a variable’s domain is limited to the whole numbers Integers generally occupy 
less storage than scalars and can be operated on more efficiently 

SCALARs correspond to the real numbers They are generally stored in floating point 
format although this is not a language requirement In any case, they can represent numbers 
to “n” digits of precision, where n is constant for a given implementation In a floating 
point implementation, scalars may trade-off precision for a greater range by representing the 
number as a fraction (mantissa) and an exponent (charactenstic) 
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VECTORS have scalar components They generally represent quantities in 3-space, such 
as position m cartesian coordinates Vectors can be of any length from 2 to an implementa- 
tion-dependent hmit The VECTOR keyword may be followed by a parenthesized number 
VECTOR(2) IS a vector with two components VECTOR alone is an abbreviation for 
VECTOR(3) No distinction is made between row and column vectors 

The MATRIX keyword by itself is equivalent to MATRIX(3,3) Matrices also have 
scalar components, but are generally viewed as linear operators on vectors, rather than as 
a collection of scalar or vector components 

A VECTOR(n) can be multiphed by a MATRlX(x,n) yielding a VECTOR(x) \Vhen 
X = n = 3, this can serve as a coordmate transformation smce each component of the result- 
ing vector IS equal to the dot product of the onginal vector and one column of the matrix 
A projection of the vector onto one axis 

A MATRIX(x,y) can be multiplied by a MATRIX(y,z) yielding a MATRIX(x,z) The 
mner dimensions must match The exponentiation operator can be used to invert or trans- 
pose a matrix or to generate the identity matrix The cross product only applies to 3- 
vectois The dot product ( ) applies only to vectors of equal lengths Addition, subtraction, 
and assignment require identical dimensions 

These definitions of the four anthmetic data types are consistent with standard mathe- 
matical conventions Data type is the most important attnbute because it determines which 
operations may be performed on the vanable 

Another important attnbute of vanables is initiahzation The INITIAL attnbute speci- 
fies the value a variable will have when the program is first loaded into computer memory 
Its form is shown below 


tt 

lNITIAL_AlfO CONSrAHT- 

n 

progsah, 

M 

DECLARE X SCALAR IHITIALtOtJ 

H 

DECLARE MAX SPEED SCALAR INITIALC WOOD 1; 

H 

DECLARE FEET_TQ MILES SCALAR COHSTAHTd / 5200)1 

K 

DECLARE SEC_TO_HR COUSTAHTI $0 160)), 

M 

declare MAX^MPU IHITIAU 14000 FEET TD MILES / SEC TO HR), 

M 

close: 


The CONSTANT attnbute also causes initialization ^Vhen an identifier has the CON- 
STANT attnbute, its value cannot be changed Any attempt to assign into it results m an 
error message 

In other respects_, 'INITIAL and CONSTANT are the same Both are followed by a paren- 
thesized value to which the identifier is mitially set Vanables of any type may be initialized 
For integers and scalars the value must be a number As the example indicates, this includes 
both anthmetic hterals, and expressions which can be evaluated at compile time Since the 
value of a CONSTANT cannot be changed, compiIe-time expressions may contain references 
to previously declared integers and scalars with the CONSTANT attnbute 
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This example shows two new abbreviated forms SCALAR is the default data type It 
can be omitted, as in the fourth declaration of the example Another omission is in the 
CLOSE statement The program name is optional, although good reasons for keeping it will 
be seen when nested code blocks are introduced in Chapter Seven 

A vector or matrix is imtiahzed m much the same way as an integer or scalar The 
essential difference is that a value for each of the vector or matnx components is specified 
in parentheses following the word INITIAL or CONSTANT The values are separated by 
commas and are sometimes referred to as the milial list 

For example, the declaration 

DECLARE VECT5 VECTOR(5) INITIAL(2 8,1 3,3 7,0,0), 
created a vector with the following initial value 

'2 8 “ 

1 3 
37 
0 

. 0 . 

Each element of the vector is initialized to the corresponding value in the initial list The 
first element receives the first value, the second element the second value, etc 

For a matrix, the elements are initialized to the values in the initial list as follows the 
first row IS initialized to the first values in the hst (using enough of them to fill one row), 
then the second row is initialized, and so on The declaration, 

DECLARE COORDMAT MATRIX(3,3) INITIALQ 7,2,0 9,8 2,6 1,1 1,-8,7 3,8 6), 
creates 



The arrows indicate the order in which the matnx components are assigned from the linear 
senes of values m the imtial list 

The important fact to remember about MATRIX initiahzation is that the order m which 
values are assigned is by rows and not by columns This row-by-row order also applies to the 
way matnx components are read and pnnted with READ and WRITE statements, and to 
arrays and the MATRIX shaping function, as will be shown later. This convention is com- 
monly called row-major order 
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Wnting an initial list as m the above examples can be cumbersome if the vector or 
matrix is large HAL/S offers some shortcuts 

1 If only one value is specified in the initialization attnbute, all of the components 
of the vector or matrix are initialized to that same value For example 

DECLARE V VECTOR{3) INITIAL(lO), 

M MATRIX(3,4) lnitia](0). 



2 If several successive values in the initial list are identical the programmer can specify 
a repetition factor and write the common component-values just once The repeti- 
tion factor IS a number mdicating how many times the value is to be repeated, and it 
IS separated from the value by a # symbol Using repetition factors, the mitiahzation 
attnbute, 

INITIALd 5,1 5,i 5,2 7,2 7) 
may be wntten more succmctly as, 

INITJAL(3#1 5,2#2 7) 

which IS entirely equivalent to the longer form The repetition factor may also 
precede a parenthesized, comma-separated list of values, in which case the whole 
hst IS repeated Repetition factors may be nested to form a vanety of patterns For 
example, a 3x3 matrix may be initialized to the identity matrix by the initialization 
attnbute, 

INIT1AL(1,2#(3#0,1)) 

3 If only some components are to be mitiahzed there are two ways to achieve the 
desired affect 

a) A repetition factor may be specified without an accompanying value, m which 
case the specified number of components are passed over and left uninitialized, 
or 

b) the last item in the initial hst may be an astensk, which indicates that the re- 
maining components are not to be initiahzed 

For example, the statement, 

DECLARE A MATRIX(3,5) INITIAL (1,2,3 ,4#,8,6,3# 09,'^), 

creates the matrix 

A= '1 2 3 X X ’ 

X X 8 6 09 

09 09 X X X 

where x mdicates an unmitiahzed component 
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The symbols # and are used :n vector and matnx initial lists as well as in other con- 
structs They can also be used in the initial list in the declaration of an array or structure and 
m shaping functions As descnbed later shaping functions allow the creation of vector and 
matnx quantities as in the following statement 

M = MATRIX(1,2#(3#0,1)), 

All HAL/S vanables must be defined before they are referenced The DECLARE 
statement is the most common means of defining an identifier, but other possibilities 
such as use of the TEMPORARY statement will.be introduced in later chapters While there 
are additional data types and attnbutes, all of the forms of the DECLARE sm/emenf have 
been presented 


Exercises 


2 3A Wnte declare statements corresponding to the table below 


IDENTIFIER 

TYPE 

INITIAL/CONSTANT 


X_DELTA 

SCALAR 

INITIALIZED TO 1 


Y„DELTA 

SCALAR 

INITIALIZED TO 1 


TIME_DELTA 

CONSTANT 

VALUE 1 


DELAY_FACTOR 

CONSTANT 

VALUE 5 


TEMPI 

SCALAR 



TEMP2 

SCALAR 



TEMPS 

SCALAR 



COUNT 

INTEGER 

INITIALIZED TO 1 


POINT_A 

VECTOR 



ORIGIN 

CONSTANT 

VALUE (0,0,0) 



VECTOR 

/' 

0 

TRANSFORM 

MATRIX 

INITIALIZED TO ( 0 

1 



\ 0 

0 


2.4 EXECUTABLE STATEMENTS 

This chapter stresses the HAL/S source and listing formats and the arithmetic operators 
and data types Enough executable statements have been introduced to write simple pro- 
grams The information about executable statements which will be assumed m later chapters 
appears below 

The assignment statement consists of one or more target vanables, an = sign, and an ex- 
pression To store the value of an expression into several vanables at once the multiple as- 
signment IS used, as in 


I. J, K = 0, 

A, B, C = (A+B+O/3 
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Each target vanable must be of the same type as the expression on the nght Conversions 
between integer and scalar, and single and double precision are automaticany performed, 
however 

The operands to the READ statement are a parenthesized channel number and a list of 
vanables, e g , 

READ(5) ALPHA, BETA. GAMMA, 

The channel number selects one of several external devices from which the vanables are to 
read The data must be in a standard character format, so no additional control parameters 
need be given Chapter eight descnbes other options in the READ statement 

The WRITE statement also includes an integer channel number Its remaining operands 
may be expressions of any type In the statement, 

WRITE(6) M, V, M-^'(-l), M*+(-i)V, 

two matrix and two vector expressions appear Matnces can be raised to any integral power 
Minus one results in the “inverse” operation The output format is described in Chapter 
Eight along with more details of the READ, READALL, WRITE and FILE statements 

The PROGRAM and CLOSE statements have been described m this chapter 

Most of the remainmg HAL/S statements alter the sequential flow of control These in- 
clude statements for conditional execution (Chapter 4), looping (Chapter 5), and subrou- 
tines (Chapter 7} Error control (Chapter 10) andTeal-time (Chapters 1 1 and 12) statements 
complete the set 

Chapter three descnbes additional forms of the anthmetic expression 



Executable Statemen U 2-1 7 


End of Chapter Problems 

Ik The following program will compute the roots of the polynomial SX'^-HX— 10 and 
pnnt them out 

ROOTS PROGRAM, 

DECLARE SCALAR 
ROOT], ROOT2, 

ROOTl = (-4+(4’'’'2^ 3 (-10)’^'"0 5)/2, 

ROOT2 = (-4-(4‘-’^2-4 3 (-I0)r*0 5)/2, 

\VRITE(6) ROOTl, ROOT2, 

CLOSE ROOTS, 

Modify the program to read m three scalar values A, B, and C from channel 5, and 
compute the roots of AX^+BX+C 

Note Assume the input values will yield real roots 

2B A ball IS tossed straight outward from a height of 1 10 feet with a horizontal velocity 
of 4 ft/sec Each time it hits the ground, it rebounds to 35% of its previous height 

Wnte a HAL/S program to compute tlie tune until the ball luts the ground for the 
third time, and how far it has traveled horizontally m that mterval 

The applicable equations of motion are 

1 For an object dropping from height H to the ground or bouncing from the 
ground to height H, in time T, 



where g = 32 ft/sec"^ is the gravitational acceleration 

2 Horizontal motion is mdependent of vertical motion, so if D is honzontal dis- 
tance traveled m time T at velocity V, 


D= VT 


2C An artificial satellite moves m a cucular orbit of radius 4000 miles Write a HAL/S 
program to compute how long it takes to make 1 revolution and wnte the result on 
channel 6 


Remember, P = y(MASS_OF_EARTH) 6 670 x 10"^ 

Say the MASS_OF_EARTH is 5 983 x 10^”^ grams One mile equals 160934 4 cm 
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2D Let ax + by = e, 

CX+ dy = f, 

be a system of 2 equations m 2 unknowns 

Wnte a HAL/S piogram to compute the solution of the system 

The inputs a, b, c, d, e, and f are available on channel 5, and the solution x, y, 
should be wnttemon channel'6 

We are guaranteed that a solution does exist 

Remember, Cramers Rule states 

ed— bf _ af— ec 

^ ” ad— be ^ ad— be 
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3 o" MORE BASICS 

This chapter descnbes additional aspects of the arithmetic expression, including snb- 
scnptmg and function invocation One new non*executable statement is also presented, so 
that only new data types,, and executable statements otherdhan assignment are left to later 
chapters 

3.1 BUILT-IN FUNCTIONS 

In addition to the anthmetic operators, HAL/S provides a set of built-in functions 
When the name of one of these functions occurs in an expression, code is generated to in- 
voke the correspondmg library routine Built-m function names are HAL/S keywords and 
the nin-time library routines are supplied with the compiler Examples of several useful 
built-in functions can be given with the aid of a parallelogram 


D 



B 


The size and shape of a paraileiogram are uniquely determined by the lengths of two ad- 
jacent sides and the an^e between These scalar quantities will be called LONG, SHORT and 
ALPHA 


Taking the lower left corner as the ongm of a coordinate system with an X axis ex- 
tending along B, the following program computes the coordinates of the comer points 


11 

H 

n 

M 

M 

M 

H 

E 

H 

E 

H 

3 

E 

n 

s 

E 

K 

E 

H 

H 


CORKERS 

PROGR^UI, 

DECLARE SCALAR, 

LQKG, SHORT, ALPHA, 
OECLAPE VECTOStai, 

AB, BC, CD, DA, 
READI5) LOUS, SHORT, ALPHA, 

A8 = 01 

BC = VECTOR (LONS, 0), 

a 


DA = VECTOR (SHORT COStALPHAI, SHORT SINCALPHAH; 
Z 


CD = BC DA; 

HRITE(61 AB, BC, CO, DA. 
CLOSE corners; 
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The first assignment sets "both components of the vector AB to zero Any anthnietic 
variable may be assigned from the literal zero Zero is the only such special case, it may be 
considered a typeless literal 

The second assignment illustrates use of the VECTOR' shaping function The expression 
VECTORS (2) (LONG,0) represents a 2-vector whose components have the values LONG 
and zero 

In the third assignment, the arguments to the VECTOR function afe arithmetic ex- 
pressions As a result, the first component of DA is set to the product of the length of 
short side and the cosine of the angle ALPHA The “Y” component of this vector is com- 
puted similarly, except that the sine .function is used , 

The fourth assignment merely illustrates the “parallelogram rule” for vector addition 

SIN and COS are algebraic bmlt-m functions, listed in Appendix A This category in- 
cludes SIN, COS, TAN and their inverses (eg , ARC SIN) and the hyperbolic -forms (eg, 
SINK, ARCCOSH) Also included are LOG, EXP, and SQRT For argument X, the latter 
functions are equivalent to Logg (X), e^, andVx” 

Each algebraic function returns a scalar value The arguments may be any integer or 
scaler expression An algebraic function name with its parenthesized argument is itself a 
scalar expression Thus, function invocations may be nested, as in 

ARCTAN(SIN(X)/SQRT(1 -SIN(X)*^2)) 

A function’s arguments are always enclosed in parenthesis As usual, the evaluation of an 
expression always starts at the inner-most parenthesis In the expression above, “1 — 
SIN(X)**2” IS evaluated as “i-^((SIN(X))**2)” The function invocation may be viewed as 
of higher precedence than exponentiation Another interpretation of the same rule is that 
the value passed to a function is completely specified within the parenthesis Operators out- 
side the parentheses apply to the value returned. 

Before continuing td'other classes of built-ih functions, consider some general rules 

1 No built-m function modifies any of its arguments 

2 A function name and its argument list together comprise an expression of some data 
type 

3 A function argument may be any expression of the specified data type 

4 All tngonometric functions receive and return angles in radians 

5 Invalid arguments (e g , SQRT(— 1)) are indicated via runtime errors, as desenbed m 
chapter ten 

The-parallelogram example also used the VECTOR shaping function Shaping functions 
perform conversions One function per data type is provided The anthmetic shaping func- 
tions are VECTOR, MATRIX, INTEGER and SCALAR The VECTOR and MATRIX func- 
tions will accept any number of arguments, each of which may be of any anthmetic type 
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The second assignment statement of the ejcample might be entered as 

a 

BC = VECrORS2CLONG,0), 

This statement contams the first subscnpt used so far Whenever the' VECTOR function pro- 
duces a vector of dimension other than three, the dimensionality of the result must be speci- 
fied as a subscript to the function HAL/S uses the dollar sign (S) to indicate a subscnpt, 
when the subscnpt as a single token (2), no parentheses are needed “VECTORS2” is the 
HAL/S notation for “2-vector” 

The MATRIX shaping function may also be subscnpted A 3x2 matrix can be produced 
from the numbers 1—6 by 

MATRIXS 0,2) (1,2, 3, 4,5,6) 

A three-by-three matrix can be produced without a subscnpt, as in 
MATRIX (1,3#0,1,3#0,1) 

The number of values in the argument list of a shaping function must match the sub- 
scnpt if one IS supplied Other\vise, the number of .values must be three (for a vector) or 
rune (for a matnx) If supphed, the subscnpt must be either a single compile-tune expression 
indicating the length of a vector or two expressions, indicating a pair of matnx dimensions 
The product of these numbers is the number of components in the matnx The dimensions 
of any vector or matnx expression must be known at compile-Ume 

It IS the total number of components m a shaping function argument list that must 
match the subscnpt For instance, given ' 

DECLARE M MATRIX, 

V4 VECTOR (4), 

V2 VECTOR (2), 

M22 MATRIX (2,2), 

All of the followmg are legal (since each list has 9 components) 

M = MATRIX (V4,M22,0), 

M = MATRIX (V4,0V2,V2), 

M = MATRIXS (3,3) (M22,2#V2,0), 

Whenever a data aggregate appears m the argument list of a shaping function, it is “un- 
raveled” in the natural sequence (i e , the same order as in initial lists, row-major) The 
VECTOR and MATRIX functions see their argument hsts as a linear stream of scalars Thus, 
if for example X, Y and Z are three 3-vectors, then MATRIX (X,Y,Z) is a 3x3 matnx in 
which the first row equals X, the second equals Y and the last contams the values from Z 
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Shaping functions are the only class of built-ins which accept a vanable length argument 
list Others have a fixed number of arguments, each of a specified data type As stated 
above, the functions m the “algebraic” class all take one scalar argument and retum a scalar 
result However, one basic rule in HAL/S is that wherever a scalar is expected an integer may 
he used, and vice-versa. In the assignment below, 

DECLARE I INTEGER INITIAL (4), 

I = TAN (I), 

first I IS converted to a scalar, then the tangent is taken and finally the result is rounded to 
the nearest integer before assignment into I 

Roundmg is defined m the usual way INTEGER (3 5) = 4, INTEGER {— 1.4) = — 1, 
and INTEGER ( 4999) = 0 As indicated, there are INTEGER and SCALAR shaping func- 
tions analogous to the VECTOR and MATRIX functions Smce integer and scalar hterals 
are written straightforwardly, and integer/scalar conversions are automatically performed, 
the INTEGER and SCALAR functions are less often needed than VECTOR and MATRIX 
More applications of these functions will arise after arrays and non-anthmetic data types 
have been introduced 

Rounding can also be performed by the ROUND function, this function allows exphcit 
roundmg without using an integer vanable, as in 

DECLARE SCALAR, OLD, NEW, 

WRITEC6) ‘CHANGE IS’, ROUND(100(NEW-OLD)/OLD), 

‘PER CENT’, 

Character strings are descnbed in chapter eight, character literals, such as ‘per cent’,, are out- 
put unchanged by the WRITE statement If OLD=3 and NEW=5, the statement above would 
produce 

CHANGE IS 67 PER CENT 

The anthmebc functions include ROUND, TRUNCATE, FLOOR, and CEILING. The 
distmctions are shown in the following table 



X = 3 

S 

-1.7 

-1 3 

1 6 

ROUND (X) 

0 

1 

-2 

-1 

2 

TRUNCATE (X) 

0 

0 

-1 

-1 

1 

FLOOR (X) 

0 

0 

-2 

-2 

1 

CEILING (X) 

1 

1 

-1 

-1 

2 


In words, TRUNCATE ignores the fraction, FLOOR always rounds down, and CEILING 
always rounds up These functions always return an mteger result 
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The arithmetic class also includes ABS (absolute value) and MOD (modulus) The re- 
sult returned by these functions is of the same type as their argumentfs) If the two argu- 
ments to MOD are of different types, the result is scalar 

The remaining functions in this category, DIV, MIDVAL, ODD, REMAINDER, SIGN 
and SIGNUM, are descnbed in Appendix A It should he noted here that the DIV function 
causes an integer division The remainder is discarded and the quotient is returned No 
rounding is performed When mtegers appear in a quotient wntten with “/”j th&y are con- 
verted to scalars prior to the division 

The only remaming category of functions to be discussed in this chapter is vector/matnx 


built-in functions 




Name 

Argument 

Result 

Comments 

ABVAL 

Vector 

Scalar 

Magnitude, length 




UNIT 

Vector 

Vector 

Vector of length I in the 
same direction 

V/ABVAL(V) 

INVERSE 

nxn Matnx 

nxn Matrix 

Same as M ■**(-!) 

TRANSPOSE 

nxm Matnx 

mxn Matnx 

Same as M**T 

DET 

nxn Matnx 

Scalar 

Determinant 

TRACE 

nxn Matnx 

Scalar 

Sum of diagonal element: 
n 

1=1 


The program below illustrates some of the power and convenience of HAL/S vector/ 
matrix facilities It first reads in four 3-vectors, X, Y, Z and V, and determines whether X, Y 
and Z span 3-space Then it constructs an orthonormal set from X, Y, and Z yieldmg vectors 
Al, A2 and A3 Fmally, these vectors are taken as the axes of a coordinate system, and V 
(the fourth input vector) is expressed in them 

In this program, the determinant is used to find out whether X, Y and Z are Imearly 
independent If they are not, the second assignment statement (after La Gram-Schmidt) 
may result in a runtime error, since unit of the zero vector is undefined Since the problem 
IS m 3-space, A3 can be computed by a tnck A1*A2 is orthogonal to both Al and A2, A2 
(A1’^A2)=0), and of the length 1 (ABVAL(Al) 2 times ABVAL(A2) times sine(90“)) The 
transformation of V in the last assignment is conveniently done with a matnx, if, as in this 
program, the matrix is not saved, it may be more efficient to use the equivalent foim 


V = VECTOR(V A1,VA2,VA3), 
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The remaining built-in functions are much the same as those presented here Each is 
an expression of some data type, the arguments to each are of specified types, may be any 
expression, and so forth They will be discussed after the appropnate concepts and data 
types have been, defined. 


(1 

ORTHONORHAL 

M 

PROSRAM, 

C 

THIS PROGRAM CONSTRUCTS AN ORTHOHORMAL 

c 

SET FROM X.Y AKO Z AND THEN EXPRESSES 

C 

V IH IT 

H 

DECURE VECTOR, 

rt 

X, V, Z, V, Al, A2, A3, 


HSITEI6) DET(HATRIX(X, T, Z)), 

c 

IF RESULT IS ZERO, X, Y AND Z DO NOT FORM 

c 

BASIS ... EXPECT ERROR BELOW 

£ 

• 

M 

Al = U)IIT(X); 

M 

AZ = UNITCY - (Y . Al) Al), 

E 


H 

A3 = Al X A2, 

(1 

V = MATRlXtAl, A2, A3) V; 

M 

CLOSE; 


Exercises 

3 1 A What are the types of values of the following expressions'? 

a) ROUND (ABVAL(VECTORS2(SIN(0 5), COS(0 5)))) 

b) TRANSPOSE (MATRIX(1,3#2,3,3,4,5,6)) 

c) MATRIXS (2,3) (1,0, 0,1, 1,1) VECTOR(l,2,3) 

3 IB Wnte a HAL/S program to multiply the 3x3 matnx 
'9 8 1 

6 5 4 

_3 2 1 

by its transpose and write the result on channel 6. 
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3 1C Translate these mathematical expressions into HAL/S 
. Hcos2x 

~r- 

b) tan~ V - 1 (tng function is arctangent (inverse tangent)) 

. Vv 

c) m(rz— zr)sin6— mrz6cos0 

(use names like R_DOT, PHI, PHl_DOT, etc ) 



e) ln(tan(2i + H)) 

2 4 

(In = natural loganthm, use PI for tt ) 

3 2 SUBSCRIPTS 

Subscnpts are used to operate on components of larger entities if V is a vector, VSl 
refers to the first component 

Any vector or matrix vanable or constant may be subscnpted This is done by ap- 
pendmg a dollar sign (S) and a subscnpt expression If the subscnpt expression is a single 
token, as m X$3, no parentheses or other punctuation is needed Any expression may be 
parenthesized X$ (((3))) is equivalent Parentheses are required if the subscript involves any 
operators, e g , V$(I+1) 

Since matrix subscnpts are wntten with a comma (and thus are not a single token), they 
are always parenthesized, as in 

MS(I,J) = M2S(I,1) M3$(J,1) + M2$(I,2) M3S(J,2) + 

M2$(I,3) M3$(J,3), 

Subscnptmg may be viewed as of hi^er precedence than the operators (+,—,*,**, etc ) 
Thus, VSI**2 IS the square of the 1^^ component This precedence is natural, since subscnpt 
computations seldom involve exponentiation 

If a subscnpt expression is of scalar type it is rounded The result must be in the range I 
to Nj where N is the declared dimension. Any integer or scalar valued expression may be 
used as a subscnpt 

A smgle component of a vector or matnx is a scalar, and may be used m any context 
where a scalar vanable is allowed 

When an exponent contains a subscnpt, as m E**(VS1), the subscnpted vanable appears 
m the single Ime (source) format on the exponent hne of the output listing 
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In all other cases, a subscnpt is indicated naturally by its position in the listing rather than a 
dollar sign When a subscnpt (or exponent) is lowered (or raised) in the listing, the outer 
parentheses (if any) are removed In AS(BSC)**(N-i), all of the parentheses are removed 

E N-1 

M A 
S B 
S C 

A position in 3-space can be represented by a 3-vector in a vanety of ways The program 
below uses subscnptmg to convert cartesian to polar coordinates. The results consist of 
bearmg (angle from X axis in honzontal plane), elevation (angle from x axis m vertical 
plane), and total distance Angles are in radians, distance is in the onginal units 


H 

XrZ TQ polar: 

H 

PROGRAM. 

H 

DECLARE P VECTOR, 

E 

- 

K 

REA0(5) P; 

E 

- 

n 

MHrTE(6> AHCTAKtP / P ), ARCTANtP / ASVAUP ), ABVAL(P),, 

s 

2 1 3 2 AT r 

n 

CLOSE XYZ TO POLAR; 




This program assumes that the direction of P is in the same hemisphere as the positive x 
axis A more general solution can be written usmg the ARCTAN2 function 

One new construct appears in, the example P$(2 AT 1) is equal to VECTOR$2 
(PS 1,PS2) A 2-vector, consisting of the X and Y components of P ABVAL(PS(2 AT i)) is 
the distance from the ongm to a pomt in the honzontal plane directly beneath P 

“2 AT 1” IS one type of partition subscript It can be used to specify a slice of a vector 
m terms of the partition width and the number of the first included component The general 
form IS number AT expression “Number” is any mteger-scalar compile-time expression, 
greater than one and less than the corresponding declared dimension While partition widths 
must be known at compile-time, the starting component number may be any integer or 
scalar expression 

Any partition of a vector is a vector A partition of length N can be used in any con- 
struct where a declared VECTOR(N) is allowed 

PS(2 AT 1) can also be written as PS(1 TO 2) Here, the indices of the first and last 
components to be mcluded are given, instead of the width and the first component 

The dimension of PS(x TO<y) is 1+y— x Smce the dimensionality of every vector-matnx 
expression must be pre-determmable, both x and y must be known, neither may be an ex- 
pression involving a variable 
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Given V ^ VECTOR(10,20,30,40,50,60,70), 

V$2 = 20, 

VSC2 TO 4) = (20,30,40), 

V$(3 AT 2) = (20,30,40), 

V$(3 AT VS3/10) = (30,40,50), 

V$(4 TO #) s (40,50,60,70), and 
V$(2 AT #-l) = (60,70) 

The sharp character (#) which appears in the last two partitions means “the last” VS 
(4 TO #) can be read as “the fourth through last components” ”2 AT #-1” is a way of 
specifying the last two components For the 7-vector above, any occurrence of # can be 
replaced by 7 

A subscnpted vector is either a scalar or a vector, depending on the type of subscript A 
subscnpted matrix may be a scalar, a vector, or a matrix If both subscripts are simple (1,1) 
the result is scalar If one is simple and the other a partition (1,1 TO #), the result is a 
vector If both are partitions (2 AT 1 , 1 TO 2), the result is a matrix Output listing over- 
marks indicate the resultant of type after subscnptmg 

As usual, a matrix that has been subscnpted down to type and‘dimension “X” can be 
used in any context where a variable of type and dimension “X” is allowed 

The row of a matnx M is M$(I, 1 TO #) This can also be written as MSd,"*) The 
column IS MS(*,I) The asterisk means “all of a dimension” In every case, it is equiva- 
lent to “ITO#” 

Usmg this form of partition subscript, the elementary row operations used m reducing 
matrices can be expressed compactly 


H 

n 

n 

n 

H 

K 

M 

C 

E 

rt 

S 

c 

E 

n 

s 


soxs 

PROSflAM. 

DECURE H MATRIX. 

C SCALAR, 

TEMP VECTOR, 

Z IHTEGER) 

J 1NTE6ER, 

MULTIPLY A ROW BY A (HONZERO) CONSTAHT: 


M = c H ; 

ADD A CCnSTAMT MULTIPLE OF ROM J TO ROM I 


M = M t C tl ; 
I.« I,» J,» 


Continued 
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c 

EXCHAKSE ROMS I AUO J: 

E 


H 

TEHP = H ; 

S 


E 

- 

H 

H = H ? 

S 


E 

_ 

M 

M = TEMP, 

S 

J,¥ 

M 

CLOSE POUS, 


Before leaving the topic of subscnpting, one caution is in order HAL/S stores matnces 
in row-major order This means that a row of matnx is stored in a contiguous block of 
memory The scalars m a column of a matnx do not occupy consecutive locations This may 
make operations on matnx columns less efficient than corresponding.operations on rows 
A few restnctions on the use of matnx columns (ASSIGN parameters; the input FILE state- 
ment and NAME vanables) are descnbed later Matnx columns are acceptable in all con- 
structs presented so far 

This section has descnbed component subscnpting Most of thematenal also applies to 
array and structure subscnpts, but there are some differences These topics are discussed in 
chapters 6 and 9 Component subscnptmg apphes to vectors, raatnces, character stnngs and 
bit stnngs 

The term subscript expression has been used to stress the fact that there are forms which 
can occur only m subscnpts These are partitions The forms A TO B, A AT B, and #±N 
are used only in subscript expressions 

An important pomt to remember from this section is that the set of contexts in which 
a variable may be used does not depend on the presence of subscnptmg, but on the data- 
type which results after the subscnpt has been applied 




Subscripts 3-1 J 


Exercises 


3 2A For the following vectors and matrices. 


0 


10 

I 


11 

2 

V2 = 

'12 

3 

13 

4 


14 

5 


15 


M22 


5 6 
7 8 


MSS' 


■ 7 4 1 -2 -5 ■ 

6 3 0 -3 -6 

.52-1-4-7. 


a) Give the values of V1S(2), M22$(2,l), and M35$(2,3) 

b) Give the values of V2S(3 AT 4), M22S(*,1), and M35S(2 TO 3, 4 AT 2) 

c) Wnte the necessary declarations and initializations to produce V j, V2, M22, and 
M35 

3 2B Wnte a HAL/S program that will compute the dot products of 

' 1 * 

2 

-3. 

with each of the columns of 

■ 1 2 3' 

4 5 6 
_7 8 9. 


leave the results in a vector, RESULT_X, and write the results on channel 6 
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3.2C The diagrams below represent the values of vanous vectors and matnces 



"0“ 


'7~ 

V33 = 

‘ir 

[21 

22 ' 

V31 = ' 

1 

V32 = 

8 

12 

~ [23 

24 


_2_ 

• 

.9. 

r 


-13. 



M33 


-1 -2 -3 

-4 -5 -6 

^7 -8 -9 


What values will the following code pnnt 


V41 = VECTOR$4(M22), 

M22 = MATRIX$(2,2) (M33S(2 AT 2, 2 
WRITE(6) V4I, 

WR1TE(6) M22, 

M33 = MATRIXS(3,3)(V31,V32,V33), 
WRITE(6) M3 3, 

M22 = MATR1X+(2,2)(V31,V32$2). 
WRITE(6) M22, 


AT 2)). 


3 3 THE REPLACE STATEMENT 

The REPLACE statement provides a capability similar to the macros of other languages 
The REPLACE statement contains an identifier (termed the replace name or macro name) 
and a sequence of characters, termed the macro text The REPLACE statement instructs 
the compiler to substitute the macro text for every subsequent occurrence of the macro 
name 

The REPLACE statement is not executable, it may only occur in the declare group 
The following represents one common use of REPLACE 


REPLACE PRINT BY “WR1TE(6)”, 
REPLACE PUNCH BY “WRITE(7)”, 
REPLACE CARDS BY "5”, 
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Any occurrence of PRINT subsequent to these statements wi!l be converted to WRITE(6) 
by the compiler The REPLACE statement causes the compiler to substitute the replace text 
for the replace or macro name wherever it occurs as a token in the following source Using 
the replace macros defined above, 

READCCARDS) X, becomes READ (5) X, 

PRINT X, Y, Z, becomes WRITE(6) X, Y, Z, 

and 

PUNCir X, Y, becomes WR1TE(7) X, 7, 

The macro is not expanded in the listing Only the macro name appears Each -reference 
to a macro is automatically underlined, however, this informs the reader that a replacement 
was done m order to avoid a possible mis-mterpretation 

The replace text is enclosed m double quotes (“) This is the only use of the double- 
quote character in HAL/S The replace text may be any sequence of characters not con- 
taining ” The replace name or macro name is an identifier and follows the conventions 
descnbed in chapter two Since REPLACE is a HAL/S statement, it ends with a semi-colon 

The macro name is only recognized when it appears as a token Given, 

REPLACE A BY “1”, 


and 


DECLARE ABLE SCALAR CONSTANT(A), 

only one replacement is performed The other A’s are part of keywords and an identifier, 
not complete tokens 

Replace macros are commonly used to parameterize I/O channels, as indicated above, 
and the dimensions of vanables, as in 

REPLACE UNKNOWNS BY “6”, 

DECLARE AUGMENTED MATRIX(UNKNOWNS,UNKNOWNS+l), 

HAL/S does not allow vanables to be used for either channel numbers or dimensions, 
but Since REPLACEments are done at compile-time, macro names may be used where 
numbers are required, provided the replace text is an expression computable at compile- 
tune 

The compiler will process the DECLARE statement above as if DECLARE AUG- 
MENTED MATRIX(6,6+i), had been coded 
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Replace text iS commonly a single number, but may be any strmg For example, 

REPLACE DUMP BY “WRITE(6) X,Y,Z, GAMMA”, 

could be a useful abbreviation while debuggmg The use of replace macros to abbreviate 
HAL}S keywords is strongly discouraged HAL/S was designed to maximize readabihty 
rather than “wnteability”. It can be very difficult to decipher a program in which macros 
are used inappropriately. The tune spent actually typmg a program is generally insignifi- 
cant compared to the time spent reading it 

The program below illustrates a parametenzed replace statement Here the macro is 
used to generate a table (for section 3 4) without wntmg a loop 


n 

fi 

H 

» 

E 

n 

E 

U 

E 

H 

& 

H 

E 

11 

E 

M 

E 

n 

H 


TABLE- 

PROGRAM, 

REPLACE L0G2IX1 BY ”L0GCX)/L0Gt 2 I"; 

REPLACE EHTRY(K) BY ''KRIT£(6) K, ) ,N/L0G21 101", 

EHTSYfeit 

EHTRYtiat; 

EHTRYdSl, 

ENTRYtlBl, 

EHTRY(2'H5 

EHTRY(52)J 

EHTRY(3S); 

CLOSE TABLE, 


In this example, X and N are macro arguments Wherever N appears m the replace text of 
the ENTRY macro, the actual parameter (8, 12, etc ) is substituted Whenever the para- 
meter, X, of the Log2 macro occurs in the text, the value 1 0 is substituted 

The ENTRY macro generates an entire statement Note that no final semi-colon was 
placed mside the endmg quote This produces a better listing since a semi-colon must 
terminate each reference to the macro, tnggenng a new hsting hne 

The names of previously defined macros may be used m the replace text, as in LOG2 
above The compiler will continue to make substitutions until no macro names remain, 
before any other processing An infinite expansion results if a macro’s own name is used 
in its replace text Statements like, 

REPLACE X BY “X+1”. 

not only cause error messages, but may abort the rest of the compilation 

The above is a brief introduction to the HAL/S macro capability Additional features 
and more detail can be found in the language Specification 
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3 4 THE PRECISION ATTRIBUTES 

Most of the matenal so far has been concerned with the anthinetic expression Rules 
for forming expressions from identifiers, operators, literals, and keywords have been pre- 
sented Every expression has a data type, the type is determined by the types of the identi- 
fiers and functions used, the operators which combine them, and the order of evaluation 
Each expression also has a precision 

Anthmetic identifiers and expressions are of either SINGLE or DOUBLE precision 
All previous examples have been single precision Double precision variables represent 
values to more significant digits than single precision vanablcs 

Any arithmetic operation involving a double precision operand is done in double pre- 
cision The result is also of double precision Thus, the usual method for specifymg that a 
computation should be earned out to more digits is by declaring some or all of the vanables 
to be double precision 

The computation in the wnte statement belov/ is performed in double precision 


n 

H 

M 

ri 

u 

H 

E 

n 

E 

t1 
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PARALLAX 

PROGRAM, 

DECLARE EARTH_OHBIT COHSTANTt 92.9E61; 

DECLARE VECTORCgl, 

SPfilUG REAOIUGt FALL_HEAD1NG, 

DECLARE DEVIATID‘l“5CALAR D0UBLE1 

READ(5) SPHIKG_READIN6, FAIL.READIW; 

DEVIATION =: ABVALl SPRING READING - FALL READING) / 8? 
WRITEi6.9 'DISTANCE^'. EARTH_OR&IT / TAN( DEVIATION), 'MILES', 
CLOSE parallax; 


This program could be used to compute the distance to a star based on its apparent 
change of position as the earth moves 180" in its orbit (93 million miles) The input data is 
a pair of angles in radians representing the star’s direction m the Fall, and another set taken 
m the Spnng The diagram below illustrates the algonthm in 2-space 



fall 




spring 
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Double precision is used m the example because a very large number is computed from 
a very small number using the tangent function near a zero The double precision tangent 
routme is mvokedj and the division of 93 milhon by the result is performed in double pre- 
cision Thus, the expression, “EARTH_ORBIT/TAN(DEVIATION}” is of type double 
precision scalar The WRITE statement outputs all the digits of its operands 

The anthmetic m the preceding assignment statement is done in single precision 
Whether or not this is adequate depends on the provision of the measurements and the 
number of digits ih a SCALAR SINGLE One radian is approximately 2 x 10^ arc-seconds 
If the physical measurements are accurate to the nearest half second, then six decimal 
digits of precision would be enough * The value of the expression is converted to double 
precision before it is stored into deviation 

The number of digits m the representabon of a scalar (of either precision) is imple- 
mentabon-dependent These numbers are specified in the User’s Guide A rule of thumb 
for scalars is one decimal digit for every 3 1/3 bits of manbssa 

If the measurements have more significant digits than can be contained m a single pre- 
cision scalar, the whole program could be done m double precision 

DECLARE VECTOR(2) DOUBLE,S,F, 

READ(5) S,F, 

WRITE(6) EARTH_ORBIT/TAN( AB VAL(S-F)/2) , 

This version is wntten less mnemomcally, and the assignment and wnte statements are 
combined These simplifications have no effect on precision 

All of the computabons in this form are done in double precision This is tnggered 
entuely by the DOUBLE keyword in the declarabon of S and F Note that there is only 
one name each for the tangent and absolute value functions, whether single or double 
precision The double precision form of a built-m function is automabcally invoked when 
one or more arguments are of double precision The value returned by a built-m function 
IS of the same precision as its argument Since ABVAL(S— F)/2 is a double precision ex- 
pression, the double precision version of TAN is selected 

Double precision expressions are formed under exactly the same rules given for single 
precision No restrictions apply to double precision vanables that do not apply to single 
precision vanables of the same type Precision is normally specified m declarations rather 
than expressions 


*This program also assumes that the earth’s orbit is exactly 92 9E6 miles, and that the readings are made 
at exactly the same time of day 
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The variables Ij S> V, and M used m previous sections could have been declared as 

DECLARE I INTEGER DOUBLE, 

S SCALAR DOUBLE, 

V VECTOR DOUBLE, 

M MATRIX DOUBLE, 


This would not necessitate any changes to the expressions used 

The DOUBLE attnbute follows the data type in an attribute list It may be either 
before or after the other minor attnbutes such as initialization, LOCK, and AUTOMATIC, 
eg. 


DECLARE COVAR MATRIX(5,5) INITIAL(O) DOUBLE, 

DECLARE V VECTOR(S) DOUBLE INITIAL(S#1), 

Precision applies to all four arithmetic types Either SINGLE or DOUBLE may be 
specified in the attnbute list of any mteger, scalar, vector, ormatnx Since single precision 
IS the default, it need not be specified in declarations 

Double precision vectors and matnces are composed of double precision scalars All 
of the vector-matrix operators and functions have both single and double precision imple- 
mentations As before, double precision routines are selected when either operand is 
double, or when any bmlt-m function argument is double 

Since integers, double integers, single scalars and double scalars may be freely mixed 
and substituted for each other, these four combinations typically correspond to different 
sets of computer registers or machine instructions Conversions of integer to scalar and 
single to double are made automatically when operand types are incompatible Since in- 
teger and smgle precision operations are generally more efficient, data is left m the simpler 
forms whenever possible 

The type and precision of an expression are determined solely from the expression 
itself Neither attnbute depends on the context in which the expression is used The pre- 
cision of the expression in an assignment statement is not determined by the precision 
of the target vanable on the left hand side In the following, “10000 N” is a single pre- 
cision expression, smce neither operand of the multiplication is double 

DECLARE D SCALAR DOUBLE, 

DECLARE N INTEGER 1NITIAL(20), 

D = 10000 N, 

The nght-hand side is of type single precision integer It will be converted to scalar double 
before assignment to D, but the multiphcation is done in single integer mode. 
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Table 1 shows the range of integers with vanous word sizes If the code above is ex- 
ecuted on a computer which represents single integers in 16 bits, the wrong answer will 
be produced The code can be corrected by adding an explicit precision specifier 

'd = 10000 NS(@DOUBLE), ' 

The forms “©SINGLE” and “©DOUBLE” may be attached as subscnpts to any arith- 
metic vanable In the example abov6, “NS(@DOUBLE)” is of type integer double Thus, 
the multiphcation is done m double precision and no accuracy is lost 

The precision specifier may also be attached to shaping functions, as in 

DECLARE VECTOR, VI, V2, V3, 

DECLARE M MATRIX DOUBLE, 

M = MATRIXS(@DOUBLE,3,3)(Vl,V2,V3), 


The precision specifier precedes any subscnpts in a shaping function 


Table 1 


Range of 


# of Bits 

Integer 

# of Digits 

8 

128 

2 4082393 

12 

2048 

3 6123590 

16 

32768 

4 8164796 

18 

131072 

5 4185390 

24 

8388608 

7 2247190 

32 

214748360 

9 6329593 

37 

3435973800 

10 837079 


Empirically, double precision algebraic routines give better performance near zeros 
and singularities than their single precision counteiparts These routines are generally 
implemented via polynomials, prefaced with code to identify the quadrant or other range 
of the argument The tangent routine, for an argument 0 < X < v}2, might use a poly- 
nomial of the form 

Tan X = A + Bx + CX^ + DX^ + + FX^ 

If the value DEVIATION m the parallax example has the value ]E-6 then the tangent 
will be 


A + BxlO“^ + CxIO-1^ + DxIO-^® + ExlO"^*^ + -Fxl0“^® 

The operation X = X + 10“^ X, where n is greater than the number of digits contained in 
a scalar, does not change X 
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-When two floating point numbers are added, the exponents are first equalized by 
shifting one of the mantissas It is this shifting that causes the loss of significant digits When 
two floating point numbers are multiphed, no shifting is required The same situation holds 
in fixed point, though any shifts required for addition and subtraction must be explicitly 
coded 

In the parallax example, double precision allows the addition of more terms of the poly- 
nomial used to approximate the tangent function Double precision generally is needed 
when numbers of greatly different magnitudes are added or subtracted, and when a large 
number of output digits are needed The latter case is less common, since neither humans 
nor digitial-analog converters can use more than a few digits directly 

The arithmetic expression is summanzed in the next section All of the statements made 
apply equally to single precision, double precision, and mixed Operations which reference 
one or more double precision values are done in double precision More digits are obtained, 
at greater expense in memory and execution time Some implementations have fixed point 
scalars, the Language Specification descnbes the explicit scaling (shifting) operators which 
are used in these implementations More details can be found in the appropriate User’s 
Manual 

3 5 SUMMARY OF THE ARITHMETIC EXPRESSION 

An anthmetic expression has one of the following forms 

1 An identifier This may be an integer, scalar, vector, or matnx vanable or constant 
of either precision 

2 A literal No sub-classes of numenc literals are defined. 

3 A subscripted identifier Partition and simple subscripts are allowed, as well as ex- 
plicit precision specifiers and scaling operators 

4 A function invocation Both built-in and user functions may have zero or more 
arguments, which are themselves anthmetic expressions Shaping functions may also 
have subscnpts 

5 A further expression prefixed by a minus sign Any anthmetic type may be negated 
An expression preceeded by is allowed, but functionless 

6 A further expression m parentheses The parentheses override precedence rules, and 
allow scaling operators and precision specifiers to be attached to expressions 

7 Two expressions separated by an operator Only certain combinations of operand 
types are allowed for each operator. 

The list above is a recursive definition of the syntax of the anthmetic expression 
Expressions may be nested via forms three through seven 

The compiler evaluates an expression outward from the most deeply-nested parentheses 
Within a Set of parentheses, the compiler first evaluates any subscnpts Operators are applied 
to the components selected by the subscripting 
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The table below shows the anthmetic operators in the order in which they are evaluated 
when not ovemdden by parentheses 

Operators m Decreasing Precedence 

Exponentiation Applies to integers and scalars For matnees, 
the exponent must be either an integer or the character ‘T” 
Raising a matrix to the “T” power always indicates trans- 
position of rows and columns Integer powers apply only to 
square matnees If I is negative, is equal to INVERSE 

multiphcation Indicated by a blank Multiplication is allowed between any 

two types, provided the “inner dimensions” match Resulting 
type given by outer dimensions 

Cross product Applies only to 3 -vectors The result is a 
3 -vector, given by 

Result = Vector(X2Y3-X3Y2,X3Yi-XiY3,X|Y2-X2Yj) 
The resultmg vector is orthogonal to X and Y, and of magni- 
tude (ABVAL(X)ABVAL(Y)SIN( 3 )), where 6 = the an^e 
between X and Y 

Dot, scalar, or inner product Applies to vectors of equal 
dimension The result is a scalar equal to the sum of the 
products of correspondmg components It also equals the 
product of the magnitudes of the vectors and cosine of the 
angle between 

I Division The left operand may be integer, scalar, or vector 

The right must be integer or scalar The result has the same 
dimension as the left operand, but is never integer 

+, ~ Addition and Subtraction If one operand is scalar, the 

other may be either integer or scalar Otherwise, the two 
operands must be of the same type and dimension 

— Negation Applies to any data type The result is of the same 

type 

Operators of equal precedence are evaluated left to right, except for exponentiation and 
division which are evaluated nght to left 

Before non-anthmetic expressions are introduced, a number of statements which alter 
the sequential flow of control will be presented m chapters four and five 
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Exercises 


3 5A HAL/S has seven infix operators 
+ — <> *" / ** 

Which infix operators are legal for the following pairs of data types'^ The characters 
<> represent a blank, meaning multiplication 

Of what datatype is the result for each legal operation'^ 


1 ) 

SCALAR 

SCALAR 

n) 

SCALAR 

INTEGER 

111) 

INTEGER 

SCALAR 

IV) 

INTEGER 

INTEGER 

v) 

VECTOR 

VECTOR 

VI) 

VECTOR 

MATRIX 

vn) 

VECTOR 

INTEGER/SCALAR 

viu) 

INTEGER/SCAL’AR 

VECTOR 

ix) 

MATRIX 

MATRIX 

X) 

MATRIX 

INTEGER/SCALAR 


End Of Chapter Problems 

3A Write a HAL/S program that will read 2 vectors from channel 5 and write the an^e 
between them on channel 6. 

Remember, Vj V 2 = I Vj | V 2 j cos0 

where B is angle between V j and V 2 

3B There are occasions when it is necessary or advantageous to shift one’s frame of ref- 
erence These occasions call for a translation and/or rotation of the coordinate sys- 
tem Say the old axis (x, y) is shifted to the new axis (x‘, y’) m the following 
manner, the x, y origin is shifted to (x^, y^) and rotated by a degrees as shown 
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X 


The resulting translation equations are 

x’ = (x - Xq) cosa + (y - y^) sina 
y’ - -(x - X(j) smo. + (y — y^) cosa 

Wnte a HAL/S program that will translate 2 coordinates in the x, y system to new 
coordinates in x’, y’ where x = 54000, = LISOOO, a = 17° The two coordinates 

are available on channel 5 and should be wntten on channel 6 

Remember that HAL/S trigonometric built-ms require angles in radians 

3C Wnte the right half of the following 4 assignments for the partitions in matnx M 
below 

a) V4 = where V4 is a 4 vector 

b) M22 = M22 is a 2x2 matrix 

c) M34 = M34 IS a 3x4 matnx 

d) VIO = VIO IS a 10 vector 
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4 0 CONDITIONAL EXECUTION 

The statements in a .program are executed sequentially, except when a flow control 
statement is executed The flow control statements can be loosely categonzed by their use 
for decisions, loops, and subroutmes These groups are described in chapters four, five, and 
seven 

Althou^ ,the HAL/S assignment statement is quite flexible, only a limited set of pro- 
, grams can be written without flow control statements The ability of digital computers to 
evaluate conditions and select alternatives is the essence of their power 

41 IF THEN ELSE 

A choice between two alternatives can be written with the HAL/S IF statement 

IF A = 0 THEN WRITE(6) ‘ZERO', 

ELSE WRITE(6) A, 

In this instance, the two alternatives are executable statements and the test is, a comparison 
The first alternative is called the then clause, the second the else clause 

IF is a compound statement, i c it is composed of further statements The concept of 
a statement containing “sub-statements” is common in HAL/S It will be useful to define 
the entire sequence, “IF comparison THEN statement ELSE statement” as a single state- 
ment, thereby 

Unless the then or else clauses contain further flow control statements*, control passes 
to the next sequential statement after an IF statement 

There are two equivalent graphical representations of the IF statement 


Standard Flow Structured Flow 



♦And only from the set EXIT, REPEAT, RETURN and GO TO 
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The form on the left illustrates the rule above by the explicit joming of two arrows at 
the bottom The system illustrated on the n^t is appropriate to structured programmmg 
languages m which complex decisions are represented through nestmg of compound state- 
ments, all of which have one path m and one path out All of the HAL/S flow control 
statements (except GO TO) can be represented in structured flowcharts 

The directions of the Imes in a structured flowchart are implied Vertical lines are always 
traversed top to'bottorn Horizontal lines are always followed left to right and back Lines 
may intersect only at the pomts of IF and DO CASE statements There is no prowsion for 
ovemdmg the natural direction 

The above rules obviously limit the class of programs that can be represented However, 
the forms that have been ruled out have been shown to be symptomatic of programs that 
are difficult to read and maintam Any algonthm which can be expressed by a standard 
flowchart (where square boxes contam HAL/S assignments) is equivalent to some HAL/S 
program, without GO TO statements, which can be represented by a structured flowchart 

The IF statement can select an alternative based on the results of a boolean combination 
of several compansons A companson consists of two expressions separated by a relational 
operator, as in 

IF A = 0 THEN . 

IF N > 12 THEN 

IF B**2 < 4 A C THEN 

The complete list oforelational operators is 


= 

exact equality 

n = 

NOT = 

not exactly equal 

> 

greater than 

> ^ 

greater than or equal 

< 

less than 

< = 

less than or equal 

n > 

NOT> 

not greater than (same as <=) 

1< 

NOT< 

not less than (same as >=) 


Since the character “H” does not have a standard graphic across all systems, the keyword 
“NOT” may be freely substituted for it 

All of the operators above may be used between any combination of integer or scalar 
smgle or double expressions When necessary, integers are automatically converted to 
scalars, and smgle precision is raised to double before the comparison 
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However^ only the first two relational operators (= and “1=) can be used between vectors, 
and matnces Two vectors or niatnces may be compared for equality or inequality if they 
have the same dimension They are equal if each pair of components is exactly equal, and 
unequal otherwise 

It IS not generally useful to compare scalars, vectors, or niatnces for equality In the 
statement, 

IF A = B THEN WRITEC6) ‘PURE COINCIDENCE’, 

where A and B are scalars, the WRITE statement is executed only if every digit in A is the 
same as m B Due to the finite precision of scalars and roundoff problems, if B had been set 
by 


B = A/3, 

B = B + 2 A/3, /-"1/3 A + 2/3. A’'/ 

B would probably not be equal to A Scalars can be tested for approximate equality as in 
IF ABS(A-B) < EPSILON THEN 
where EPSILON is “sufficiently small”, e g , 

DECLARE EPSILON CONSTANT( 000001), 


or 


EPSILON ^ (A+B)/!6**(25 MANTISSA_LENGTH), 


etc 


The keywords AND, OR, and NOT {or their equivalents, &, |, and “h may be used to 
combine several comparisons m one IF statement Parentheses are generally required around 
each simple companson For example, 

IF (A>0) AND (A<100) THEN 
IF NOT((A<-0) OR (A>=100)) THEN 

Both of these forms will result in the execution of the then clause if (and only if) 
0<A< 100 The first test checks whether A is in the given range The second test is 
equivalent since it checks whether A is not outside the range The sense of any companson 
or cornbmation thereof can be reversed using the NOT keyword as shown in the second 
test This use of NOT requires a parenthesized argument 
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Suppose a number is divided into one of three ranges, as shown 


IF N < 10 THEN R = 1, 

ELSE IF N < 20 THEN R = 2, 
ELSE R = 3, 


Here,^the else clause of an IF statement is an entire IF THEN . ELSE group It may 
be diagrammed as follows 



The THEN clause of an IF statement may not be an IF THEN ELSE group * 
A four way branch can be written with a DO END group, as descnbed in the next 
section 

The IF statement allows the selection of one or two alternatives based on the evaluation 
of a comparison When no action is required unless the test succeeds, the else clause may be 
omitted entirely 

IF A > 0 THEN B = SQRT(A), 

This statement is functionally equivalent to 

IF A NOT > 0 THEN, 

ELSE B = SQRT(A), 

Here the then clause is just a semicolon, which is the HAL/S equivalent of a noKjp or null 
statement 

IF. , THEN ELSE may be viewed as a single statement The then and else clauses 
each contain a further single statement Any executable statement is allowed m the else 
clause, the then clause may contain any executable statement except a further IF THEN 

.ELSE The else clause may also be omitted entirely 


*This rule avoids the “dangling else” problem common to ALGOL-hke languages 













IF THEN ELSE 4-5 


Exercises 

4 lA What IS wrong with the following HAL/S conditional statements (in which all van- 
ables are of SCALAR type) 

a) IF A < B < C THEN MIDDLE = B, 

b) IF B < C THEN 

IF C < D THEN B = D, 

ELSE B = C, 

ELSE C = B, 

c) IF RADIUS > 0 & NOT RADIUS > 1 THEN 

WRITE(6) PI RADIUS *="2, 

4 IB Where possible, convert these standard flowcharts to structured flowcharts, without 
^ duphcatmg or eliminating boxes Indicate why the others cannot be converted 

a) 























df w > 


Tell whether the fo 
that 

A, B, C, D are sc; 
V, S are 3 -vectors 

= 70 C = 12 
= 40 D = J : 

= (2 4 6) .S = 

a) A < B 

b) C > (NOT B) 

c) '(A 'B) -fe- 

ci) (S n-='v) OE 
e) V'<? " 

0 ‘(VV-< C) &- 
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Write the following descnptions m relational expressions 

g) A IS greater than B but less than C 

h) The vector V is not equal to the vector S and C not less than D unless D is 
equal to 4 

4 1 D Write HAL/S code implementing this flowchart 
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4 2 THE DO. END GROUP 

A senes of executable statements may be combined into a do group, which may then 
be used anywhere a single statement is required, e g , m the then clause 

This allows, for example, the following coding of a four way decision 

IF X < 0 THEN M = 0, 

ELSE DO, 

IF X < 100 THEN DO, 

IF X > 10 THEN M = 2, 

ELSE M = 1, 

END, 

ELSE M = 3, 

END. 

This example, which sets M to the order of magnitude of X, can be diagramed 



Since it IS only one statement, the entire sequence above could be further nested in IF or 
other compound statements 

A do group consists of a DO statement, any number of executable statements* and an 
END statement, e g 



•Or TEMPORARY statements 
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The example below computes PI by an inefficient but illustrative algonthm 



Here it can be seen that loops are shown with the same shaped symbol as IF statements 
HAL/S has several types of loops, ail of which use the DO and END keywords The simplest 
type IS shown above, and in the following compiled listing 
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H 

H 

K 

K 

H 

H 

H 

M 

E 

H 

H 

M 

H 

H 

H 

H 


DARTBOARD APPROXIMATICH’ 
PROGRAM, 

DECLARE SCALAR, 

X, Y5 

DECLARE INTEGER, 

1, HIT, hISSf 
DO FDR I = 1 TO 1000, 

X - RANDOM, 

Y = RANDOM, 

£ £ 

IF X + Y <= 1 THEN 
HIT = HIT + 1, 

ELSE 

HISS = MISS + X, 

END, 

HBITE(63 h HIT / MISS, 
CLOSE, 


Since the compiler used m preparing listings for this manual automatically indents pro- 
grams to correspond to a structured flow, diagrams Will not be provided for subsequent 
examples The same information is contained m the indenting as in the flow 

The simple do group (without iteration) is classified as an executable statement No 
additional machine code is generated however An extra do group, like an extra set of paren- 
theses, IS sometimes used for clanty In the order of magnitude example, the else clause of 
the outer IF statement is bracketed by an unnecessary DO END pair It is common 
practice to use a do group as a then or else clause even when it is not required by the syntax 
This allows for the possibility of latei insertions 

There is no way to branch into any part of a compound statement from outside the 
statement HAL/S has a GO TO statement, and any executable statement may be labelled, 
but restnctions are imposed A label inside a do group, a then clause or an else clause can 
only be used in GO TO statements which are themselves in the same group or clause 

The do group has two uses Primarily, it allows the nesting of statements m tests and 
loops The secondaiy purpose is to define the scope of temporary data 

The TEMPORARY statement is similar to the DECLARE statement It allows a tem- 
porary variable of any type to be created, as shown on the followmg page 
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H 

M 

H 

M 

n 

M 

C 

H 

H 

E 

M 

E 

K 

E 

M 

M 

H 


EXiHPLE_2 

PROGRAti. 

DECURE VEL VECTOR. 

mr_FfiAM£ HATS IX. 
DECLARE VECTOR, 

RESULTl, RESULTZ. E. 


DO. 

TEKPORAHY V.PRIHE VECTOR: 
_ w - 

V_PRIrtE = MY_FRAME VEL; 

RESULTl = UHITIV_PRIHE); 

RESULTZ = V_PRIKE » E, 
EKO. 

CLOSE EXAHPLE_2, 


The vector, V_PRIME, exists only for the duration of the do group If the next do 
group contained 

TEMPORARY S SCALAR, 

S would probably occupy one of the storage locations that had just been used for 
V_PR1ME 

Temporary variables may be of any type and precision They may not, however, be 
initiahzed or given other minor attributes TEMPORARY statements can only be used 
withm do groups Storage is allocated to temporary vanables for the duration of the 
execution of the immediately enclosing do group The TEMPORARY statement informs the 
compiler of the range over which a vanable will be needed The actual allocation and freeing 
of storage is done m an implementation-dependent manner 

Very few restrictions are made on the use of temporary vanables They may not be ref- 
erenced at all from outside of the containing do group, otherwise, they are usable m all of 
the constructs introduced so far Proper use of the TEMPORARY statement can reduce 
a program’s size without substantially increasing its execution time 
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Exercises 


4 2A Q A standard means of flowcharting is to use a system where 



means a conditional execution along one of 
the paths (but not both') depending on the 
condition represented by ‘CX’ 



represents a DO END group without 

any conditional branches m the group 


Consider 


the following flowhcart 




represent DO END 
groups each 5 state- 
ments long 



represents a DO END 
group 150 statements long 



Rewrite this flowchart in a way to represent a shorter program 
Can this change be made in a valid HAL/S program‘s 

4 2B Write a HAL/S program that will solve a system of 2 equations in 2 unknowns 
as in problem 2-0 

However, do not assume a solution exists, incorporate a test to insure that the 
denominator is not zero 

4 2C Implement the following structured flowchart segment in HAL/S, using a few 
DO END groups as possible 
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means a smgle statement represented by M 


a) There is a construct in the flowchart that is not legal in HAL/S What is it"^ 

b) Rewrite the flowchart to eliminate the illegal construct, and wnte a code frag- 
ment corresponding to this structure Do not introduce or eliminate any 
conditions 

c) How would a structured flowchart have made this mistake more easily 
available"^ 
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4 2E 


In problem 4 2D, we have seen that if the branches are to be preserved as shown, 
the code corresponding to 



had to be repeated 
Lets say that 



IS 250 statements long, whereas all the other 

□ 


are still a single statement Rewnte the flowchart and the code to allow the code for 



to appear only once 
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4 3 BOOLEANS 

The test between IF and THEN "in the IF statement is either a companson or a boolean 
expression A boolean expression is a boolean vanable or a combination thereof Both types 
of tests can be. compounded using AND, OR, and NOT, but they cannot be mixed in one IF 
statement A boolean expression always can be converted to a companson as iri 


n 

H 

M 

E 

n 

H 

C 

c 

c 

H 

M 


EXAMP LE_3- 

proghamT 

DECLARE QI BGQLEAH, 
IF Q1 = TRUE THEH 
DDj 


END, 

CLOSE EXAtlPLE_3; 


The IF'Statement can also be wntten IF QJ THEN 

TRUE IS a boolean.hteral It is equivalent to BIN'l’ or ON^ Booleans can take on one 
of only two possible values The other is wntten FALSE, BIN‘0’ or OFF The three differ- 
ent representations for each value allow mneinonic compansons and assignments as m 

DECLARE BOOLEAN INITIAL(OFF), 

POWER, READY, 

IF READY = FALSE THEN POWER ^ OFF, 

As the example shows, the form of the declare and assignment statements is the same for 
booleans as for other data types Booleans are annotated by the compiler with a “ ” on the 
Ehne 

F 

Booleans are used for flags, signal states and to optimize complex compansons The 
keyword BOOLEAN is interchangeable with BIT{1) Bit strings of, length greater than one 
are discussed in chapter 13 Since the concept of a “flag” is so common, the BOOLEAN 
keyword is mclude’d in the language and the applicable subset of BIT operations is pre- 
sented here. 

The preceding IF statement would normally be written, 

IF NOT READY THEN POWER = OFF., 
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NOT READY is a boolean expression-, which can also be wntten ”1 READY Boolean .ex- 
pressions are composed of boolean vanables, the operators AND, OR, and NOT, and 
boolean functions The operators are defined via their truth tables below 

’ A AND B “ ' A OR B “ NOT A 

B BA 



TRUE 

FALSE 


TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

TRUE 

FALSE 

TRUE ' 

TRUE 

TRUE 

FALSE 

TRUE 

A 



A 1 





FALSE 

FALSE 

FALSE 

FALSE 

TRUE 

FALSE 




OR IS the inclusive or operator. Exclusive or is provided as a built-in function, 

IF XOR(A,B) THEN 
but the equivalent statement, 

IF A n= B THEN 
IS preferred 

There are sixteen possible distinct binary operators oh booleans These include AND, 
OR, and NOT as well as exclusive or, the bi-conditional, etc Any of them can be expressed 
by a combination of AND, OR and NOT Any boolean expression can be converted to an 
equivalent boolean expression usmg only NOT and one of the other two One such trans- 
formation IS expressed by DeMorgan’s rules 

A AND B - NOT(NOT A OR NOT B) 


and 


A OR B = NOT(NOT A AND NOT B) 

i < .1 

For another example, XOR(A,B) could also be wntten “A AND(NOT B) OR (NOT A) AND 
B” 


The expression A&(H B)'| H A)&B is the same as “A exclusive-or B”, or “A is not equal 
to B” Because AND has higher precedence than OR, the expression is interpreted as 

(A&(HB)) OR ((nA)&B) 

The boolean operators, AND, OR, and NOT, have considerable' similarities to the arith- 
metic operators, multiphcation, addition and negation, respectively This results in the con- 
vention that A&B I C&D is mterpreted as the OR (logical sum) of two ANDs (logical pro- 
ducts) 
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CoBSJdfiT' th^ following example of tlie translation from an English statement of a con- 
dition-to a boolean expression 

Engbsh If the power is on and either it is not overheated lOrnthe override is set, and 
either, switch 6 is on or it is off and switch 7 is set 

HAL/S Power &. (not overheated or override) & (switch 6 or (not switch 6 and switch 

Careful study of the English form may fail to reveal how the precedence is communicated, 
but most readers will see the. correspondence between the two forms Symbolic logic shows 
that while there are a number of reliable rules for translation, much rests on the readers 
understandmg of the situation to whichfan assertion apphes 

The boolean expression above is wntten with the minimum number of parentheses, 
takmg advantage of the precedence of NOT over OR and AND The expression, (NOT 
SWITCH 6 and SWITCH 7), has the truth table 


SWITCH 6 


SWITCH 7 ON 

FALSE 

TRUE 

OFF 

FALSE 

FALSE 


and is equivalent" to 

t 

'((NOT SWITCH #6) AND SWITCH 7) 
In summary. 


Precedence of boolean operators 
First NOT 
AND 

Last OR 


In addition to the test in an IF statement, boolean expressions may be used in assign- 
ment statements (the left hand, side must also he boolean), in compansons with other 
boolean expressions, and m WHILE and UNTIL loops (as descnbed in the next chapter) 
Boolean expressions may appear in WRITE statements, boolean vanables may be read 

No other data type is automatically converted to boolean, and boolean is not auto- 
matically converted to any other type Booleans cannot be used m arithmetic expressions, 
and anthmetic vanables cannot be used in boolean expressions The concept of precision 
does not apply, to booleans, Jiut hit strings may be viewed as sets of booleans on which 
operations'can be performed in parallel 
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Both types of test in the IF statement can be written using the AND, OR, and NOT 
operators These operators combine either compansons or booieans via precedence rules 
liJce those of arithmetic Parentheses can be used to ovemde the normal precedence When 
comparisom are combined, each should be parenthesized 

IF(I < 0) OR (I > 9) THEN 

In boolean expressions, the precedence rules make most parentheses unnecessary, an ex- 
ception IS as m 

IF A OR (NOT B) THEN 

It IS not possible to combine compansons and booieans in a single expression If a statement 
(or group) IS to be executed based on both a boolean and a companson, the test should be 
written 

IF (CHECKING = TRUE) AND (I < 0) THEN I = -I. 
or as 

IF CHECKING THEN IF I < 0 THEN I = -I, 


Exercises 

4 3A For each of the following, tell whether it is a boolean expression, a relational ex- 
pression, or illegal For the boolean expressions, tell whether the value is TRUE 
or FALSE, for the relational expression, tell whether or not the condition is satis- 
fied Assume that 

A, B are INTEGER 

V, S are 3-vectors 

UPFLG, TRFLG are booieans 

A = 12 B = 6 

V = (2 4 6) S = (3 4 7) 

UPFLG = TRUE TRFLG = FALSE 

a) UPFLG = TRFLG 

b) NOT UPFLG 

c) NOT(V - S) 

d) NOT TRFLG OR A > B 

e) (A < B) = TRUE 
0 VPFLG = TRUE 

g) TRFLG &(n UPFLG) 
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4 4 DO CASE AND GO TO 

The most basic flow control constructs are loops, the IF statement, and the DO group 
These may be combined and compounded to implement complex structures of decisions 
The remaining flow control statements fill m a few gaps They are not as heavily used as 
the vanous forms of IF and DO 

The IF statement allows a two-way decision based on a compansonmr boolean An 
n-way branch based on an integer can be written with the DO CASE statement, /for 
example 
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EXAHPLE_4 

PROGRAM, 

DECLARE SCALAR, 

A> 5, C, D, 

DECLARE HUM GOOD INTEGER; 
DECLARE SCALAR, 

VALUE, OLD VALUE, 


DO CASE HUM GOOD, 

ELSE 

DO, 

VALUE = OLD_VAUJE, 
RETURN, 

END, 

VALUE = A; 

VALUE = fA 4 BJ / a, 
VALUE = MIDVALtA, B. CJ, 
DO. 


end; 

END, 

□LD_VALUE = VALUE, 
CLOSE EXAt1PLE„<», 


This code sets VALUE to some combination of the vanables A, B, C, and D It could 
be part of an algorithm for combining redundant values from a set of sensors The code is 
diagrammed 
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Any integer or scalar expression may appear after the word^CASE The expression is eval- 
uated and rounded to the nearest integer if necessary. In this example, if the expression, 
NUM_GOOD, IS less than one or greater than four, the else clause is executed Othenvise, 
one of the four statements between the end of the else clause and the end of the DO CASE 
statement is executed The -fourth statement (fourth case) is a DO group This is another 
instance of the use of DO END to combine several statements where one is required 

Only one of the cases is executed After the selected case is done, control passes to the" 
statement after'the END statement which matches DO CASE (m this example, to the assign- 
ment of OLD_VALUE) 

Each case may be any executable statement This includes assignment, IF THEN 
ELSE, I/O, a DO group, a loop, or a further DO CASE statement The only way to pass 
control to one of these nested statements is by executing the DO CASE header with an 
appropnate value of the expression 
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The compiler counts the cases and pnnts a case number to the extreme right of each m 
the hsting If an else clause is suppbed, code is generated to compare the value of the case 
expression against the bounds, one, and the number of cases If the expression is out of 
range, the else clause executes and control then continues after the END of the DO CASE 
The else clause may be omitted entirely, in which case no checking is performed Omission 
of the else clause may be nsky, as under some circumstances, control can be passed com- 
pletely out of the HAL/S program if the expression selects a missing case and no else clause 
is supphed 

In the example above, a RETURN statement appears in the else clause tVhen RETURN 
is used in a program, it is equivalent to transferring control to the close statement It exits 
the program 

In chapter five, the EXIT and REPEAT statements are descnbed They are drawn in the 
same way 


( RETURN ) ( EXIT D C 


REPEAT 


3 


Each IS an unconditional transfer of control to a point defined by the structure of the pro- 
gram rather than to a user label This completes the set of symbols used m a structured flow 
diagram 

The flow control statements mclude those descnbed in this chapter, loops, and (in a 
sense) the statements for defining and invoking procedures and functions Some of the 
real-time statements of chapter 12 may be thought of as transfemng control, though there 
are conceptual differences 

The only other flow control statement m HAL/S is GO TO The expenence of a number 
of large HAL/S programming projects has shown that the GO TO statement is not neces- 
sary It IS provided chiefly formechamcal translations from other languages 

Once a degree of famiharity with the use of compound statements for flow control is 
achieved, it can be seen that the concept of a “conditional transfer” or branch instruction 
IS merely a free form notation for flow diagrams a line with an arrowhead The restrictions 
on the use of GOTO correspond to the rules for a structured flow diagram presented in 
Section 9 1 GOTO’s are not allowed at all m a proper structured flow, but HAL/S permits 
some exceptions 

1) between unnested statements m the same program or other block, 

2) between statements nested at the same level in the same compound statement, 

3) to a less deeply nested statement m the same block, provided that the target state- 
ment IS not contained m any compound statement which does not also contain the 
GO TO Statement 
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Exercises 

I . 

4 4A Rewrite the foUowing,code segment using the^DO CASE statement 

' ’ IF I = 0 THEN SCRAMBLE = 4, 

ELSE IF I = 1 THEN SCRAMBLE" = 0,- 
ELSE IF I = 2 THEN SCRAMBLE =5, 

ELSE IF I = 4 THEN SCRAMBLE = 1, 

ELSE IF I = 5 THEN SCRAMBLE = 2, 

ELSE SCRAMBLE = 3 



m Iterative DO FOR Statement S-1 


5.0 LOOPS 

A loop IS a construct which causes a set of statements to be executed repetitively In 
HAL/S, a loop is a compound statement The statements to be iterated are nested within 
the loop Four types of loop are provided, so that the need for exphcit backward branches 
(GO TO’s) IS virtually eliminated. 

A loop IS created m HAL/S by attaching one or more iteration control phrases to the 
simple DO END construct which was desenbed m the previous chapter These iteration 
control phrases govern the number of tunes the loop is executed and may provide a counter 
or ^‘loop control vanable” which can be referenced from within the loop 

The example below uses the most common type of loop, the iterative DO FOR, to 
compute the factonal of a number The number, N„MAX, is read from channel 5 and 
(N_MAX)' IS wntten to channel six 
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FACTORIAL 
PROGRAM , 

OECLAPE I1TTE6ER. 

RESULT, N_MAX, I, 
READ1S9 H MAX, 

RESULT = I, 

00 FOR I = 2 TO H_HAX BY 1; 

RESULT = I RESULT, 

EliQl 

WRITE! 6) RESULT, 

CLOSE FACTORIAL, 


Note that the body of the loop is executed repetitively until the control vanable exceeds the 
final value specified after the keyword “TO” The example shown computes factonal 
(N_MAX) by doing N_MAX— 1 multiplies by the control vanable, which takes on the 
values 2, 3 , 4, , N_M AX on successive iterations 

In addition to the iterative DO FOR, other forms of iteration control are The discrete 
DO FOR, the WHILE phrase and the UNTIL phrase 

These constructs probably are famihar to the reader who has used other algebraic pro- 
grammmg languages, therefore, the remamder of the discussion in this chapter is primarily 
Concerned with the limitations and restnctions of HAL/S loops, and the ways in which 
these constnicts-may be combined with each other and with other features of the language 

5 1 THE ITERATIVE DO FOR STATEMENT 

In the precedmg example, the loop body is a single statement. 

RESULT = I RESULT, 

In general, the loop body may contain any number of executable statements Since the loop 
is constructed from a simple do group, the TEMPORARY statement may also occur in 
the loop body 
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In the phrase, 

FOR I = 2 TO N_MAX BY 1 . 

I IS termed the loop control vanable, 2 js the initial value, N_MAX is the final value, and 1 
IS the increment 

HAL/S places very few restnctions on these’ four parameters In particular, the loop 
control vanable may be any smgle or double precision integer or scalar variable * For 
example, given the declaration 

DECLARE A INTEGER, 

B INTEGER DOUBLE, 

C SCALAR, 

D SCALAR DOUBLE, 

all four of the following combinations are permissable 

DO FOR A = B TO C BY D, 

DO FOR B = D TO C BY -1, 

DO FOR C = D TO B/A, 

DO FOR D = A-B TO A+B BY D, ' 

There is one additional vanation on the control vanable, it may be either previously 
declared as in the previous example', or it may be “declared” within the DO FOR statement 
itself The latter is accomplished by placing the word TEMPORARY before the name of the 
loop control vanable, as m 

DO FOR TEMPORARY I = 2 TO N_MAX BY 1, 

A TEMPORARY loop control vanable created in this way may be used within the body of 
the loop in any way that a declared vanable could be used, but outside of the loop the TEM- 
PORARY vanable does not exist Since the TEMPORARY control vanable is effectively 
unDECLARED at the end of the loop, the memory locations occupied by the variable may 
be re-used, thus reducing the storage requirement of the program containing the DO FOR 
TEMPORARY Under 'some versions of the compiler a speed advantage may also result 
TEMPORARY control variables created in a loop are always single precision integers, their 
names must not duphcate declared data or other TEMPORARY vanables in the same loop 

The mitial and final values and the mcrement used in an iterative DO FOR loop may be 
any arithmetic expression That is, each may be any expression which evaluates to a positive 
or negative, smgle or double precision integer or scalar value Each expression is evaluated 
only once, at entry to the loop Thus; ‘if vanables used' in the expressions are modified 
within the loop, the iteration parameters of the loop are not affected 


'''Sjn^e precision integer^ are geneially the most efficient 
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Note that in HAL/S the loop control vanable may be a scalar, e g 

DECLARE SCALAR, X, PI CONSTANT (3 14159), 

DO FOR X = -PI TO PI BY 001, 

\VR1TE(6) X, SIN(X), COS(X), TAN(X), 

END, 

This code will produce a set of tngonemetnc tables, giving sme, cosine, and tangent values 
for 2000 Tt different angles 

The operation of the loop is the same as for integers On each iteration, the increment is 
added to the loop control vanable, and if the final value is not exceeded, the loop body is 
executed The values taken on by X are — ir, -ir+OOl, — tt+ 002, , etc The last value 

will not exactly equal tt, because it is generated by a sequence of additions of 001 

In the event that the result produced by adding the increment to the current value of the 
loop vanable is not of the same type or precision as the loop variable, the usual rules-for 
mixed mode assignment statements govern the conversion For instance, if the loop vanable 
IS an integer and the increment is less than one, rounding will occur on each pass through 
the loop In this case, if the increment is positive but less than 5, the value of the loop con- 
trol vanable would never be changed and the loop would never termmate 

As previously stated, any or all of initial value, final value, and increment may be negative 
For instance, the loop below is functionally equivalent to the one in the ongmal form of 
FACTORIAL 

DO FOR I = N_MAX TO 2 BY -1, 

RESULT = I RESULT, 

END, 

When a negative increment is specified, the termmation condition becomes “is the loop 
vanable algebraically less than the final vaJue'^” 

The only way that the body of a HAL/S loop may be entered is by execution of the DO 
statement which heads the loop, however, control may leave the loop by a vanety of means 
other than the control vanable exceeding the final value (e g , RETURN, EXIT, and GO TO 
statements, error conditions, etc ) Since the increment has been added to the loop vanable 
before the test against the final value is made, at normal exit from an Iterative DO FOR 
loop the loop vanable will be greater than the specified final value (if the increment is posi- 
tive) or less than the final value (if the increment is negative) This fact may be used to 
determine whether or not the loop was exited prematurely Use of this feature is dlustrated 
m the sample below, which sets the vanable NEG_PART to the number of the first negative 
component in a vector, or to zero if there is no negative component 

DECLARE V VECTOR(5), 

DECLARE NEG_PART INTEGER, 

DO FOR NEG_PART = 1 TO 5, 

IF VSNEG_PART < 0 THEN EXIT, 

END, 

IFNEG_PART > 5 THEN NEG_PART = 0, 
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The EXIT statement is not fully described until later in this chapter, but in this case the 
meaning is intuitive If component number NEG_PART of V is less than zero, control exits 
from the loop (to the second IF test) Thus, NEG_PART will be greater than the 5 if only 
if the entire vector was examined without findmg a negative value 

Since it IS necessary to test NEG_PART outside of the loop, a temporary loop control 
vanable would not be appropnate in this example 

To find the second negative component in a vector, the following loop could be added 
after the one above 

DO FOR NEG_PART = NEG_PART TO 5, 

IF VSNEG_PART < 0 THEN EXIT, 

END, 

Since the imtial and final values and the increment specified m an iterative DO FOR 
loop are evaluated only once (pnor to the first iteration), there is no conflict in using 
NEG_PART both as a loop control value and as the initial value This new loop will con- 
tinue where the first stopped 

The “BY 1” cluase has been omitted above, since 1 is the most commonly used incre- 
ment, it IS the default and need not be specified 

In summary, the iterative DO FOR takes four parameters, the first, the control van- 
able, may be any previously declared anthmetic identifier or may be a TEMPORARY 
integer created withm the DO FOR statement The initial value, final value and incre^ 
ment may be any anthmetic expression, the increment may be allowed to default to one 
by onnttmg the BY clause These expressions are evaluated pnor to the first pass through 
the loop, and the results determine whether the loop is executed once, many times or not 
at all The loop tenninates when the value of the control vanable passes the final value 
specified in the TO clause Later m this chapter, we will see how the addition of a WHILE 
or UNTIL clause can modify the execution of a loop, but first we will examme another 
form of the DO FOR construct 


Exercises 

5 1 A Consider the following code fragment where 

I & N are integers, 

S is scalar 

N= 10, 

S= I, 

DO FOR I = 1 TO 2 BY S, 

N = N + 1, 

END, 

What IS the value of N on exit from the loop‘d 

5 IB Consider the example where NEG_PART was set to the number of the first ex- 
ponent of a vector less than zero, or zero if no elements were negative 
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Change the code given in the example to leave the number of the last negative, com- 
ponent instead of the first 

5 1 C Consider the following code fragment where 
N & fare integers 


N = 9, 

DO FOR I = 1 TO N BY 2, 
N = N+1, 

END, 


What IS the value of N on exit from the loop’ 

5 ID Consider the following code fragment where 

A is a 5x5 matnx, 

X and Y are integers 


X=l, 

ROWS Y=l, 

LOOP AS (X,Y) = 2, 

IF Y = 5 THEN GOTO OUT, 
Y = Y + 1, 

GOTO LOOP, 

OUT IF X = 5 THEN GOTO DONE, 
X = X + 1, 

GOTO ROWS, 

DONE 


a) ^Vhat does this do’ 

b) Rewnte this using HAL/S iterative do for loops 



S~6 Loops 


5 2 THE DISCRETE DO FOR STATEMENT 

In order to understand the utility of another type of DO FOR statement, consider the 
problem of recogmzing pnme numbers The code below sets a boolean variable, PRIME, to 
TRUE if NUM IS prime and to FALSE otherwise (for simplicity, NUM is assumed to he 
between one and one-hundred) 

DECLARE PRIME BOOLEAN INITIAL(ON), 

DECLARE INTEGER. NUM, I, 

READ(5) NUM, 

DO FOR I = 2 TO 10, 

IF REMAINDER(NUM,I) = 0 THEN PRIME = FALSE, 

END, 

This code produces the correct answer over the range 10 to 100, but is inefGcient A 
better algorithm is to test the divisibility of NUM only by numbers which are themselves 
prune This can be conveniently expressed usmg the discrete DO FOR 

DO FOR I = 2, 3, 5, 7, 

IF REMAINDER(NUM,I) - 0 THEN PRIME = FALSE. 

END, 

Li this case, the loop is executed only four times, with the loop control vanable, 1, equal 
to two on the first pass, three on the second, five on the third and seven on the final itera- 
tion The reader may note that both programs contain a logical error in that the wrong 
result is obtained when NUM is equal to 2, 3, 5, or 7 This error will be fixed when the 
WHILE phrase is introduced m the next section of this chapter 

The form of the discrete DO FOR is similar to the iterative version The discrete form 
specifies a hst of values (expressions) to be assigned to the loop control vanable rather than 
an algonthm (initial value, final value, and mcremcnt) for computmg successive values 

On each pass through the loop, the control vanable is set to the value of one of the 
expression to the nght of the equal sign The expressions are used from left to right on 
successive iterations of the loop, each one must evaluate to an integer or scalar value If 
the type or precision of any expression is different from that of the control vanable, the 
usual rules for mixed code assignments are appLed 

TTn lik e the expressions m the iterative DO FOR, the expressions in the discrete DO 
FOR are not evaluated until the iteration of the loop on which they are to be assigned mto 
tlie control vanable This means that the value of the control vanable on future passes 
through the loop can be changed by storing mto vanables referenced in the expressions from 
the body of the loop, e g 

DO FOR I - 1, I, 21. 31, 

At exit from a discrete DO FOR loop, the control vanable retains the value of the last 
expression, unless the vanable was TEMPORARY, m which case it is undefined 
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The remaining iteration control phrases, WHILE and UNTIL, provide for looping with- 
out the use of a control variable The next two sections of tlus chapter descnbe how to 
create a loop with these phrases, and show how they may be used to modify the effect of a 
DO FOR 

5 3 THE WHILE CLAUSE 

The WHILE clause may be appended to a simple DO . END group to create a loop, or 
it may be appended to either form of the DO FOR to introduce an additional condition for 
continuation of a loop The general form of the WHILE clause is 

WHILE boolean expression 
or 

WHILE relational expression 

The boolean or relational expression represents a condition for continuation of the loop, as 
long as it evaluates to the TRUE state, the loop contmues For example 

DO WHILE TRUE, 

END, 


IS an infinite loop, whereas 


DO WHILE X < 2 
END, 

contmues until X>2 


The expression in the WHILE clause is evaluated pnor to each execution of the first 
statement of the loop body If on any pass the expression evaluates to FALSE, the loop 
body is skipped and execution contmues at the statement after the END of the DO WHILE 
or DO FOR . WHILE loop The DO WHILE loop is particularly useful when the number 
of iterations that should be made through a loop is not known m advance Consider, for 
example, Newton’s method for computmg the square root of a number, X. The method 
generates closer and closer approximations until the current approximation is “good 
enough” “Good enough” is defined as the point where the gam m accuracy from the last 
Iteration was neghgible (less than EPSILON) The example below illustrates the pomt 
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NEWTON SOHTi 
PROGRAM,’ 

DECLARE X scalar; 

DELCARE EPSILON COKSTAMTt -001 1 , 

DECLARE SCALAR, OLD^APPROX, NEW_APPROX, 

READISl X, 

NEW APPROX = X / a; 

OLD APPROX = 0, 

DO WHILE ABS(N£W_APPHOX “ 0LD_APPR0X) > EPSILON; 
0LD_APPR0X = NEW_APPROX; 

NEM_APPROX = (OLD_APPHOX + X / OLO_APPROXJ / 2; 
end; 

URITEI6) 'SORT OF X, ' 15 NEW APPROX; 

CLOSE newton.sqht; 
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Note that this pro^'am can be made to .produce more accurate results (at the expense of 
greater execution tune) merely by decreasing the constant EPSILON Note also that if 
X IS equal to zero, the WHILE test will fail on the first evaluation and the correct answer 
Will be produced but no division by zero will occur 

When the WHILE clause is added to a DO FOR, a new loop is not created, but an 
additional condition for continuation of the existmg loop is imposed This combination 
can be used to correct the deficiency m the PRIME program of Section 5 2 as shown 
below 

DECLARE PRIME BOOLEAN INITIAL (TRUE), I INTEGER, NUM INTEGER, 

READ(5) NUM. 

DO FOR I = 2. 3, 5. 7 WHILE I < = SQRT (NUM), 

IF REMAINDER (NUM.I) = 0 THEN PRIME = FALSE, 

END, 

To see how the WHILE clause corrects the bug on the old version suppose X equals 3 
Under the old version, REMAINDER (3,3) would be computed on the second pass through 
the loop, the result would be zero, and PRIME would be set to FALSE Now, however, 
prior to each execution of the loop body, the test “is I <= SQRT (NUM)^” is made On the 
first execution of the DO FOR statement, I is set to two Then I is compared with SQRT 
(NUM), which here is SQRT (3) or I 732 Since it is not the case that 2 <= 1 732, the loop 
body IS not executed and PRIME remains TRUE Addmg the WHILE clause m this example 
also has the effect of determimng the pnmeness of most numbers m fewer iterations For 
example, when X = 17 the loop is iterated only twice smce 2 is less than or equal to SQRT 
(17) and 3 is less than or equal to SQRT (17), but the next number m the DO FOR, 5, is 
greater than SQRT (17) 


EXERCISES 

5 3A Change the code in the last example m Section 5 1 that finds the number of the first 
component <! 0, elimmatmg the need for the line 

IF V$NEG_PART < THEN EXIT 

by using a WHILE clause 


5 4 THE UNTIL CLAUSE 

The general form of the UNTIL clause is 

UNTIL boolean expression 
or 


UNTIL relational expression 
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It may be used in the same contexts as the WHILE clause with the simple DO END 
group or with either form of the DO FOR statement Unlike the WHILE clause, however, 
the UNTIL clause specifies a condition under which iteration of the loop is to terminate 
When it evalutcs to TRUE, the loop terminates For example, 

DO UNTIL 3 = 4, 

END, 

IS an infinite loop, whereas 

DO WHILE 3 = 4, 

END, 

IS effectively a NO-OP (never executes) UNTIL is not, however, simply an inverse of 
WHILE for the foUowmg reason An UNTIL clause never terminates a loop before the first 
pass through the loop body This property of the UNTIL clause may be used to avoid the 
need to imtiahze vanables used m the termination condition of a loop Suppose, for instance, 
that a program is to read vectors from channel 5 When a zero vector is read, the sum of the 
previous vectors is pnnted and another set is read The program is to run indefinitely 

This could be expressed via two WHILE loops 

DECLARE VECTOR, TOTAL, V, 

DO WHILE TRUE, 

TOTAL = 0, 

V = VECTOR (1, 1, 1), 

DO WHILE V > = 0, 

READ(5) V, 

TOTAL = TOTAL + V, 

END, 

WRrTE(6) TOTAL, 

END, 

In this example, the assignment 
V = VECTOR (1, 1, I), 

IS used to force V to be non-zero before the inner loop executes If this statement were not 
provided, the inner loop would not execute after the first iteration of the outer 

The essential difficulty is that the mner loop wntten with WHILE will test the value of 
V before it has been read 
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If the UNTIL fomi is used for the inner loop, the initialization of V is not needed 

DO WHILE TRUE, 

total = 0, 

DO UNTIL V = 0, 

READ(S) V, 

TOTAL = TOTAL -5- V, 

END, 

WRrTE(6) TOTAL, 

END, 

Since the UNTIL clause cannot terminate the loop before the first iteration, the initial 
value of V is unimportant 

When, as m this case, the UNTIL clause is used with a simple DO END group, it is 
useful to conceive of the termination test as being done at the end of the loop (after the last 
statement of the loop body) 

Like the WHILE clause, UNTIL may also be used as an additional condition on either 
type of DO FOR statement, as m 

DO FOR I = 1 TO 10 UNTIL ASI = 0, 

END, 

This example is a loop (with no loop body) which sets I to the index of the first zero 
component in a vector, A However, since the UNTIL cannot terminate the loop on its first 
iteration, if AS 1=0, the loop will contmue to look for an additional zero 

When used with a DO FOR statement, the UNTIL clause causes a test for termination 
on the second and all subsequent iterations of the loop, on the second through last iteration, 
the test IS performed after the (DO FOR) loop control vanable has been updated, but 
before the first statement of the loop body is executed 


Exercises 


5 4A Consider the problem of exercise 5 3A A proposed solution is shown below 

DECLARE V VECTOR(5), 

DECLARE NEG_PART INTEGER, 

DO FOR NEG PART = 1 TO S UNTIL V5NEG_PART < 0, 

END, 

IF NEG_PART < 5 THEN NEG_PART = 0, 


Why IS this not an acceptable solution’ 
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5 5 EXIT AMD REPEAT 

The constructs already introduced in this chapter provide for the repeated execution of 
a loop body, and for a condition to be specified under which control is to exit from a loop 
These language features, however, only govern the execution of an enure loop body, the 
statements to be introduced in this section allow a portion of a loop to be repeated and for 
a termmation test to be made at any point in tlie loop body rather than only at the begin- 
ning or end To see how these statements, EXIT and REPEAT, augment the other loop 
control statements, consider the following program 

/“ THIS PROGRAM READS A SERIES OF ANGLES EXPRESSED IN DEGREES, 
CONVERTS THEM TO RADIANS, AND KEEPS A RUNNING TOTAL ON EACH CYCLE 
IT PRINTS THE CURRENT TOTAL (IN RADIANS) AND THE TANGENT OF THE 
TOTAL ANGLE PRODUCED IT AUTOMATICALLY STOPS WHEN THE RUNNING 
TOTAL EXCEEDS 5 ir, OR IF THE COMPUTATION OF THE TANGENT COMES TOO 
CLOSE TO' A SINGULARITY */ 
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/*CARD READER IS DEVICE 5»/ 
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/SPRINTER IS DEVICE 6»/ 

n 

DECLARE SCALAR, 

M 

X, 


H 

TOTAL INITIAL(O), 


H 

PI C0f!STAHT(3 1^159261, 


M 

fiAD_PER_OEGREE CDN5TAHT(PI / ISO), 


K 

SHIFT CONSTAUTCPI / 2), 


H 

DO UNTIL TOTAL > 5 PI. 


H 

READCCARC5> X, 


M 

TOTAL + TOTAL r X RAD PER DEGREE; 


H 

IF HOD( TOTAL - SHIFT, PI) < .01)1 THEN 


H 

EXIT. 


M 

WRITE! LIST) TOTAL, TANlTOTAUi 


M 

END, 


n 

CLOSE TAN_SUMS, 



In this example, the statement 

“IF MOD(TOTAL-SHIFT,PI) < 001 THEN EXIT,” 

causes the loop to termmate if TOTAL gets within 001 of jt/ 2, 3ir/2, etc If the EXIT 
statement is executed, control passes to the statement after the END of the loop (i e to 
the CLOSE statement) 

The program might be more useful, however, if instead of termmating at a smgulanty, 
it allowed the user to enter another value and continued This can be accomplished by 
changing the EXIT statement to REPEAT as follows 


IF MOD(TOTAL-SHIFT,Pl) < 001 THEN REPEAT, 
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If the REPEAT statement is executed, control will return to the top of the loop, where 
TOTAL will he compared with 5 PI If this test fails (TOTAL is not greater than 5 PI), the 
loop body Will be re-executed 

This example shows how EXIT may be used to insert a completion test at any point in 
the loop body, and how REPEAT may be used to cause iteration of a portion of the loop 
body 

The general form of the EXIT statement is 

EXIT, 

or 

EXIT label, 

When used without a label, EXIT causes an unconditional' transfer of control out of the 
nearest enclosing DO END group (i e to the statement following the END of the imme- 
diately enclosmg loop or simple DO END group) If a label is supphed, it must match 
the label on some DO END group in which the EXIT statement is nested, this form 
causes transfer of control out of the correspondmg loop or simple DO . END group 
Simdarly, the general form of the REPEAT statement is 

REPEAT, 

or 

REPEAT label, 

Unbke the EXIT statement, however, REPEAT apphes only to loops When used without a 
label it causes repetition of the nearest enclosmg DO WHILE, DO UNTIL, or DO FOR loop 
Repetition, in this sense, means that the loop control variable (if any) is updated, the ter- 
mination condition (if any) is re-evaluated, and if the conditions for termination are not met 
then control is passed to the first statement of the loop body Thus, the presence of a 
REPEAT statement m a loop does not change the number of iterations of the loop, but 
does detennine which portion of the loop body is executed on each iteration 

EXIT and REPEAT are controlled forms of GO TO The location to which control is 
transferred is defined by the structure of the program Thus, whenever these statements are 
used, theiT fuiicliotts are what their names imply EXIT always “gets out oP’ a compound 
statement REPEAT always repeats a loop GO TO, on the other hand, has a variety of 
functional uses When GO TO is used, the reader must find the corresponding label to gam 
any idea of the effect of the GO TO 

The followmg code fragment uses arrows to illustrate the transfer of control caused by 
EXIT and REPEAT 



EXIT and repeat S-1^ 


n 

ri 

M 

K 

n 

H 

H 

K 

n 

H 

M 

M 

n 

fi 

M 

M 

M 

t1 

t1 

M 

H 

H 
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SAMPLE_FLOH 

PPQGRAM, 

DECURE INTEGER , 

I> J, K, L> K, 

_*-D0 UNTIL FALSE, 

IF 1 = 0 THEN 
DO, 

J = o; 

REPEAT, 

EHO, 

ELSE 

EKIT, >-*-** - ■ " — 

IOOPE: 

DO FOR K = 1 TO 10, 

LOOPS DO FOR L = M, N, M + H, 
IF J = 0 then 
< < < > REPEAT loops; 

ELSE 

j EXIT, 

‘ ►end; 

END, 

END,-*— 

CLOSE SAtIPLE FLOW, 


Since REPEAT applies only to loops, its effect is not changed by placing it in a simple 
DO END group This fact can be used to make theTAN_SUM program moreinfoima- 
tive as shown below 

IF MOD(TOTAL-SHIFT,PI) < 001 THEN DO, 

WRITE(LIST) TANGENT UNDEFINED’, 

REPEAT, READ ANOTHER ANGLE */ 

END, 


Exercises 


5 5A Given 

a) DO FOR X = 1 TO 100, 


EXIT, 
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and, 

fc) DO FOR X = 1 TO 100, 


REPEAT, 

END, 

Assume that the EXIT and REPEAT are executed in some conditional branch some- 
time during the execution of the loop These are the only EXIT’s and REPEAT’S in 
the loops and there are no branches out of the loops 

What can be said about the value of the control vanable ‘X’ in a) and b) above when 
the first statement after the END is executed'^ 


End Of Chapter Problems 

5A Write a HAL/S program to use Simpson’s rule to approximate the area under the 
curve y = -y^usmg smaller and smaller segments, delta The process continues until 
the area resultmg from (delta/2) size segments differs from the result obtained usmg 
delta by less than (100 EPSILON) percent 

Read the limits of integration from channel 5 m scalar form, and write the resultmg 
area out on channel 6 


Remember, Simpson’s Rule is 



FINAL 

f(x)dx= 

INITIAL 


delta 

2 


[ f(initial)+2f(INITIAL+DELTA)+ 

+2f(FINAL-DELTA)t-f(FINAL)] 


Include any assumptions you make 


5B Consider the following code 


PROBLEM_PROG PROGRAM, 

DECLARE INTEGER, 

NUMBER INITIAL(3), 

DIVIDER, 

TEST_INIT DIVIDER = 2, 

TEST IF MOD (NUMBER, DIVIDER) = 0 THEN GO TO LOSE, 
DIVIDER = DIVIDER + 1, 

IF DIVIDER = NUMBER THEN GO TO WIN. 

LOSE NUMBER = NUMBER + 1, 

IF NUMBER = 500 THEN GO TO DONE, 

GO TO TEST, 



EXIT and REPEAT 5-J5 


WIN WRITEC6) NUMBER. 

NUMBER = NUMBER + 1. 

IF NUMBER = 500 THEN GO TO TEST^INIT, 

DONE CLOSE PROBLEM_PROG, 

MOD(a,b) yields a(mod b), the remainder when the greatest integral multiple of b 
less than a is subtracted from a 

a) What does this program do’ 

b) Rewrite it using do for end loops so that the program is easier to read 
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6 0 ARRAY? 

An ARRAY is an ordered set of variables of identical type which are accessed by a single 
name Arrays are completely distmct from vectors and matnces The pnmary uses of 
ARRAYS in HAL/S are 

1) For performmg identical operations on similar data as in 

DECLARE IMUl STATUS ARRAYC4) INTEGER, 

DO FOR I = 1 TO 4, 

IF IMU_STATUSSI NOT = 0 THEN CALL RING_BELLS, 

END, 

2) For mamtauimg a history of previous data values as in 
DECLARE ALT_H1ST0RY ARRAY(IOO) SCALAR DOUBLE, 


CYCLE = CYCLE+1, 

ALT_HISTORYSCYCLE = NEW_ALTITUDE, 

and 

3) For maintaining tables of all sorts, as m 

DECLARE DAYS_PER MONTH ARRAY(12) 

INTER INITIAL(31,28, 3 1,30,3 1,30,3 1 ,3 1,30,3 1,30,3 1), 

HAL/S allows arrays of any data type, however, tlie most frequently used are single 
dimensioned arrays of INTEGERS and SCALARs like those in the examples above There- 
fore, the basic concepts of declaring and subscnptmg arrays will be thoroughly exammed 
in this context before arrays of other datatypes and more advanced array operations are 
discussed 

6 1 ARRAYS OF INTEGERS AND SCALARS 

Arrays are created usmg the ARRAY keyword m the DECLARE statement, a parenthe- 
sized compile-time expression or list of expressions must follow the ARRAY keyword to 
denote the size of the array. Axrayness is an attnbute of a variable of some data type rather 
than a new type Hence, given the statements 

DECLARE A ARRAY(3) SCALAR, 

DECLARE V VECTOR(3), 

the datatype of A is SCALAR and the type of V is VECTOR even though both consist of 
three single precision SCALAR elements 

Following the word ARRAY is a parenthesized list of dimensions Each dimension is 
desenbed by a compile-tmie expression, which is the size of the dimension and the index 
of the last element X, Y, and Z in the next figure could be REPLACEd with any integral 
value up to an implementation-dependent limit 
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ARRAY (X) 



ARRAY (X,Y) 



ARRAY (X,Y,Z) 



Arrays are initialized in the same manner as VECTORS and MATRIXs, a list of values is 
provided uitparcnthesis following the keyword INITIAL or CONSTANT The special charac- 
ters * and TT may be used for partial mitiabzation and repetition as before. Thus, 

DECLARE A ARRAY(5) INTEGER INITIAL(3, 5, 14,2,0), 
creates 

A s (3,5,14,2,0) 
and, 

DECLARE B ARRAY(12) SCALAR INITIAL(0,1,-1,SQRT(2), 

-SQRT(2),4#2,*), 


creates 


B = (0,1.-1,V2,-V2,-2,2,2,2,?,V) 
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Since it IS often desirable to imtiahze an entire array to the same value, HAL/S also allows an 
initial (or constant) list to consist of only one value, in this case every element of the airay 
IS set to the value provided Thus the forms 

DECLARE X ARRAY(5) INTEGER INITIAL(5#0), 

and 

DECLARE X ARRAY(5) INTEGER INITIAL(O), 

are equivalent Finally, the ARRAY attribute may also be “factored” or specified only 
once m a DECLARE statement which creates multiple arrays as shown below 

DECLARE ARRAY(3), 

GYRO_INPUT INTEGER, 

ATT_RATE SCALAR DOUBLE, 

SCALE CONSTANT(.013, 026, 013), 

The arrays declared above might serve as the inputs and outputs of a simple program 
which does linear scaling of data read from an accelerometer assembly Assume that 
GYRO_INPUT contains three values which represent the rates of vehicle rotation along the 
pitch, roll, and yaw axes A simple routine to convert the data to more convenient units and 
data representation might be 

DECLARE N INTEGER, 

DECLARE BIAS SCALAR INIT1AL(57 296), 

DO FOR N = 1 TO 3, 

ATT_RATE$N = SCALESN GYRO_INPUTSN + BIAS, 

END, 

In this example, the vanous arrays are subscnpted in tlie same fashion as VECTORs, and 
m general, the same rules apply The subscnpt of a one-dunensional array may be any 
arithmetic expression which evaluates to a number between one and the size of the array 
If the expression does not produce an integral result, it is rounded to the nearest mteger 
An array element, such as ATT_RATESJ* or SCALE$(N+2), may be used many context 
m which a simple vanable of the same data type can be used For instance, given two 
SCALAR ARRAY(10)’s, A and B, the following statements are all legal 

AS1,AS2 = SIN(AS3), 

AS(BS(AS3)) = 29, 

DO UNTIL A$I = AS2, 

IF ASN < A$(N+!) THEN 


*Same readers may wish to review the discussion of single and mu]ti4ine formats in Chapter 2 
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Another example of the use of arrays appears m example ] This program deteimmes 
the minimum, maximum, and average time required to invert a 5x5 MATRIX containmg 
random data 
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EXAf1PLE_l‘ 

FROGCiAni 

UECURE M HA7RIX15, S); 

DECLARE,H-HATRIX15> 5Jf 

DECLARE TIHE ARRAYtlOO) SCAUR IHITIAL(O); 
DECURE SCAUR • 

THIN, THAX, TMEAH5 
DECURE INTEGER > 

I, J. k; 

00 FOR I = 1 TO 100, 

00 FOR J = 1 TO s; 

DO FOR K - 1 TO 5; 

K = random; 

J,K 

END, 

END, 

TIME = HUOTIME, 

I 

• H = n ' , 

TIME =. RUNTIME - TIME J 
I I 


END. 

NOVI PROCESS THE HUNDRED-SAMPLES IN THE ARRAY [TIME] 

TMAX, TMEAH, TMIH - TIME ; 

1 

DO FOR I = 2 TO lOO; 

THEAN = TMEAN + TIME . 

1 

IF TIME. > TMAX THEN 
I 

TMAX = TIME , 

I 

. IF TIME < TWIN THEM 

TMIN = TIME ; 

I 

END, 

TMEAN = TMEAH / 100; 

CLOSE EXAHPLE_1, 


In this example, two previously undefined functions, RANDOM and RUNTIME are mvoked 
RANDOM IS used to set the matrix to a set of pseudo-random numbers, and RUNTIME 
returns the value of the system^s real time clock 
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It may be noted that the min, max, and mean could have been computed within the 
mam loop without saving all of the values m an array. Savmg the data allows additional 
statistics, such as the median to be computed (see exercises) This method of obtaining 
timing data may be inaccurate if the tune required to read the clock is significant 

HAL/S provides for multi-dimensional arrays These are typically used for ease of 
subscnptmg and to contnbute to the readability of a program by logical grouping of data 
For example, suppose that instead of one accelerometer assembly as descnbed earlier, 
there were four of them, for reasons of fault-tolerance Then, we might declare the input 
data as a two-dimensional array 

DECLARE GYRO_INPUT ARRAY(4,3) INTEGER, 

Now, GYRO„INPUTSS(3,2) is the second measurement from the thud unit, 
GYRO_INPUT$(I,l) IS the first measurement from the first umt, and GYR0_1NPUTS(1,*) 
js all the data from unit one, i e the same three measurements we had before The use of 
an astensk to indicate “all of a particular dimension” is the same as in VECTOR/MATRIX 
subscnptmg, the #, TO, and AT forms also apply Thus, GYRO_INPUTS(”,l) is an array 
containmg the first measurement from each of tlie four accelerometer units, and 
GYRO_INPUTS(2 AT #— 1,“) is a 2x3 array contammg three measurements from each of 
the last two units In the next section we will see how these complex subscnpts are used, 
but first we shall examme the general form of multi-dimensional arrays (and finish process- 
ing the redundant accelerometer data along the way) 

The maximum number of dimensions in an anay depends on the particular HAL/S 
compiler m use, AH present HAL/S compilers allow from one to three dimensions In 
declaring an array, the number of dimensions is denoted by the number of expressions 
in parenthesis following the keyword ARRAY Thus, 

DECLARE A ARRAY(5,9,4) SCALAR, 

B ARRAY(ISO) SCALAR, 

creates two arrays of 180 scalars, but A is 3 -dimensional while B is Imear The first element 
of B IS BSl, whereas the first element of A is AS(1,1,1) Initialization works the same as in 
smgle dimensional arrays Either a list of values containing one value per array element may 
be provided, or a smgle value may be assigned to aU elements Thus, the array A may be 
uufaahzed as 

DECLAREAARRAY(5,9,4) INITIAL(O), 


or 


DECLARE A ARRAY(5,9,4) INITIAL( 1 80#0) , 

If we want A to be all zero except that AS(",*,3) = — 1,-the following initial list can be 
used 


INITIAL(5#(9#(0,0,- 1,0))) 
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To understand why this is corrsctj it is necessary to know that HAL/S stores arrays in 
“Row-major order” This means that the values in tlie initial list are assigned m the follow- 
ing order 


A$(l,Ijl) - value 1 
AS(1,1,2) = value 2 
AS(1,1,3) = values 
AS(1,1,4) = value 4 
AS a, 2,0 = values 
AS (1,2, 2) - value 6 

et cetera 


The way to remember this fact is by notmg that the nght-most index is mcremented the 
most rapidly 


Now, to illustrate the usefulness of multi-dnnensional arrays, we wii! return to the 
examples of four accelerometer assemblies The entire set of twelve measurements could 
be processed as shown below 
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EXAHPLE_S- 

PROGRAM, 

DECLARE GYRO INPUT ARRAYC'l, 33 INTEGER. 

DECLARE ATT_RATE ARRAYC^. 3) SCALAR, 

DECLARE SCALE ARRAY(3I CONSTANTf . 013, .026, 013)f 

declare bias SCALAR INITIAL! 57 2963; 

DO FOR TErtPCSARY I = 1 TO A, 

□D FOR TEMPORARY J = 1 TO 3, 

ATT„RATE = SYRO_INPUr SCALE + BIAS, 

r,j i,j J 

END, 

END, 

CLOSE EXAMPLE 2. 


In this code, SCALE is still declared as a array of three Since the four mstruments are 
identical, there is no need to keep four sets of scale factors Note, however, that if 
GYRO_INPUT had been declared as a linear ARRAY(12), we would have to either make 
the SCALE array also of size twelve, or introduce more complex code to associate the 
nght scale factor with each of the twelve measurements Thus, a two dimensional array 
may be a mechanism for performmg identical operations on a set of similar linear arrays 
just as a tmear array may be used to perform identical operations on a set of similar mtegers 
or scalars 

5 1 1 Additional Examples 

1) Do a matrix multiply, Ml ~ M.2 M3, with Ml, M2 and M3 declared as ARRAYs 
rather than as matnces 



see 
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EXAMPLE_3* 

program; 

DECLARE ARRATC3, 3). 

Ml. H3, 

DECUPE IHTEGER, 

ROW, COLi 
DO FOB ROW = 1 TO 3, 

DO FOR COL = 1 TO 3; 

HI =112 M3 + M2 M3 + M2 M3 

ROM, COL ROMjl X,C0L ROW.2 2, COL ROW, 3 3.COL 

end; 

end; 

close example 3, 


2) Rotate the contents of an array of five scalars as shown by the illustration 






*- 


•- 

J 


•- 

a 




M 

EXAMPLE_4- 

M 

PROGRAM, 

M 

DECLARE A ARRATtS) SCALAR DOUBLE! 

M 

DECLARE TEMP SCALAR DOUBLE, 

M 

TEMP = A , 

S 

1 

H 

DO FOR TEtlPOHART T = 1 TO 4, 

M 

A = A 1 

S 

T T+1 

M 

END, 

M 

A = temp; 

S 

5 

M 

CLOSE EXAMPLE_4; 
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3) Find the square root of the mean of the squares of all the values in an array of 
1 00 scalars 
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EXAMP LE_S: 
program; 

declare a ARRAYaOO), 

DECLARE RMS SCALAR, 

DECLARE TOTAL SCALAR DOUBLE INlTlALtO), 
DO FOP TEMPORARY N = 1 TO 100, 

Z 

TOTAL = TOTAL + A . 

N 

END. 

RMS = SQRT( TOTAL / lOD}; 

CLOSE EXAMPLE_S; 


Exercises 

6. 1 A Which of the following declarations hsts are legaP 
If they are legal, what do they create’ 

If not legal, why not’ 

a) DECLARE X INTEGER INITIAL(3), 

DECLARE LIST_ONEARRAY(X) SCALAR INITIAL(6# I), 

b) DECLARE X CONSTANT(4), 

DECLARE ARRAY(X), 

LIST_ONE SCALAR INITIAL(4# 2), 

LIST_TWO INTEGER, 

c) DECLARE LIST_THREE ARRAY(IS) SCALAR INITIAL(10#.l,*), 

d) DECLARE LIST_FOUR ARRAY(9, 3) SCALAR INITIALS# 1, 

3#(3#.2),*), 

e) DECLARE LIST_FIVE INTEGER ARRAY(6), 
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6 IB a) In example 1 in the text, the minimum, maximum, and mean times required to 
invert a 5x5 matrix are computed Modify the code of the example to include a 
computation of the standard deviation, defined as follows 


v^2 


a ~ 




where X is the mean value of the time, and n is the number of samples 

b) An alternate definition for standard deviation, easily shown to be equivalent 
to the above, is 


a 



- ( 




Usmg this formulation, it is possible to compute the standard deviation without 
saving all the time values in an array Rewrite the program of part a), elimmatmg the 
array of time values Is it possible to compute the median value without savmg all 
the values'^ 

6 IC In example_2, GYROJNPUT and ATT_RAT£ are declared ARRAY(4,3) 

The text states that if these vanables were declared ARRAY(12) either SCALE 
would have to be declared ARRAY(12) or more complex code would be needed 

Keeping SCALE declared an ARRAY(3), modify the code given for example_2 
such that GYRO_lNPUT and ATT_RATE are declared ARRAY(12), while still 
keepmg the basic structure of the code given. 

6 ID Instead of the modification of the array shown m EXAMPLE_4, write code that 
Will perform the following modification^of array A. 





I 


ri 
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6.2 OPERATIONS ON ENTIRE ARRAYS 

Most of the examples m this chapter have relied upon the iterative DO FOR loop to 
sequence through the elements of an array Commonly, the loop has been used to apply 
one statement to each array element, i.e 

DO FOR I = 1 TO ARRAY_SIZE BY !, 

(statement) 

END, 

Since this type of operation is so common, HAL/S provides a mechanism for combimng 
these three statements into one For example, to add one to each element of an array 
could be coded as follows 

DECLARE A ARRAY(IO) INTEGER, 

DECLARE I INTEGER, 

DO FOR I = 1 TO 10, 

ASI = A$I + 1, 

END, 

or, by elimmating the subscnpt and the loop, could be recoded as shown below ^ 

DECLARE A ARRAY(IO) INTEGER, 

A = A+1, 

This assignment is an example of an arrayed statement A statement which operates on all 
the elements of an array Here the effect js the same as m the form with a loop, i e each 
element of A is incremented In general, an arrayed assignment statement results whenever 
the target (left-hand side) of the assignment is an array There are two possibiLties for the 
expression to the nght of the = sign It may be either a simple expression (eg “1” or 
“SQRT(3)”) or it may be an anayed expression (eg “(A] +1” or “[AJ/2”) In the former 
case, every element of the target array js set to the value of the expression In the latter case, 
one additional rule applies The arrayness (number and size of dimensions) of an arrayed 
expression must be exactly the same as the arrayness of the vanable to which it is assi^ed. 
This must be true because each element of the target array is set to the corresponding 
element of the arrayed expression An arrayed expression follows the same rules as an 
unarrayed expression except that some or all of the vanables are arrays (of identical 
dimensions) Thus, if 

A = CX^ + DX + 5, 

IS a legal HAL/S statement involving simple vanables A, C, D, and X of any data type, 
then 

[A] = [C] [X]2 + D[XJ + 5,- 


*The HAL/S compiler annotates anays with square brackets in the output listing Thus, the assignment 
statement would appear as [A] = [A] -t 1 , ' 
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where A, C and X are identical arrays of the same data types, is also legal In general, aM of 
the anthmetic operators (e g +, /, etc ) will accept either two simple vanables, a simple 

variable and an array, or two arrays of identical dimensions 

Note, however, that the machme code generated to correspond to an arrayed statement 
still contains a loop, this fact is important when assessmg the efficiency of a computation 

The following shows how the partition form of anay subscnptmg is used Given 

DECLARE GRID ARRAYC6,6) SCALAR, 
a vanety of re-arrangements of the array can be done in a very few statements 

1 ) Set the top half to the bottom half 
GRID] -pQ 3,^^ ^ GRID4 jQ g « , 

2) Set the upper left quarter to the lower nght comer 
GRID] TO 3, 1 TO 3 = '^^^^3 AT 4, 3 AT 4 ’ 

3) Set the first row to the sura of the other five 
GRID] :fr — GRID2 + GRIDg * + GRID4 X + 

GRID5 ^ + GRIDg , 

4) Set the border to zero 

GRID] A , GRlD*^g , GRiDg ,. , GRID^ j = 0, 

This last example is a multiple assignment statement, to which one additional rule 
applies If one or more of the target vanables in a multiple assignment statement is an 
array, then all of the target vanables must be arrays and of identical dimensions 

One caution is m order regarding assignments like these Consider the assignment, 

GRID S( 1,2, TO#) = GRID$(1,1T0#-1), 

This statement might be intended to shift the top row one position to the nght Instead, it 
sets GRIDSi[l,2 TO #) to GR1DS(I,1), the first element is propagated throughout the row 
The reason can be seen when the arrayed assignment is unravelled 

GRID$(1,2) = GRIDS(1,1), 

GRIDS(1,3) = GRIDS(1,2). 


This adverse effect can occur whenever a partition of an array is set from an mteisectmg 
partition of itself Such assignments should always be checked by partially expandmg them 
by hand 
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Using the feature introduced m this section, we can make the redundant accelerometer 
example of Section 6 1 more compact 
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EXAMPLE 6 
PfiOSRAH, 

DECLARE ARSAT(4, 3), 

GYRO IMFUT IMTEGER, 

ATr_RATE scaur; 

DECLARE SCALE ARRAY(3) SCAUR CONSTANTC .013, .026,- 013], 
DECLARE BIAS SCALAR CDKSTAHTtSI 296), 

00 FOR TEMPORARY DEVICE = 1 TO 4; 

[ATT_RATEI - [GYRO_INPUTl I SCALE] + BIAS; 

DEVICE, 4 DEVICE,* 

EHD, 

CLOSE EXAMPLE_6; 


Here, we have converted an unarrayed statement in double loops to an arrayed state- 
ment m a Single loop Smce the SCALE array is of size 3 and the other arrays are 4x3, we 
cannot elimmate both loops without gettmg an arrayness mismatch m the assignment 
statement But it is possible to have an assignment statement with more than one dimension 
of arrayness as long as all of the vanables match Thus, we could compute a set of four 
attitude airays 

DECLARE ATTITUDE ARRAY{4,3) SCALAR, 

DECLARE ATT_RATE ARRAY(4,3) SCALAR, 

from the attitude rates m a single statement merely by 

[ATTITUDE] = [ATTITUDE] -f- [ATT_RATE] DELTA_T, 

where DELTA_T is a SCALAR representmg the time between samples This one state- 
ment IS functionally the same as 

ATTITUDE$(1,1) = ATT1TUDE${1,1) -t ATT_RATES(I,1) DELTA_T, 
ATTITUDES(1,2) = ATTITUDES(1,2) + ATT_RATE$Cl,2) DELTA_T, 
ATTITUDES(1,3) = ATTITUDES(1,3) -P ATT_RATES(1,3) DELTA_T, 
ATTrrUDES(2,I} - ATT1TUDES(2,1) + ATT_RATES(2,1) DELTA_T, 


ATT1TUDES(4,3) = ATTITUDE $(4,3) + ATT_RATE$(4,3) DELTA_T, 

(a total of twelve simple assignments) 

x 

In addition to arrayed assignments, HAL/S also allows arrayed comparisons It is 
possible to compare an entire array or arrayed expression, either with a simple vanable 
or with an identically dimensioned array or arrayed expression For example, we could 
create a 4 by 4 array showmg mismatches between the four sets of ATTITUDE data (each 
an ARRAY(3) partition) as shown 
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H 

EXAMPLE 7. 

K 

PH0GRAH5 

H 

DECLARE ATTITUDE ARRAY(4i 3) SCALAR, 

H 

DECLARE MISMATCH ARRAY(4, 4) INTEGER; 

H 

DECLARE INTEGER. 

H 

I, J. 

M 

DO FOR I = 1 TO 4, 

K 

MISMATCH = O; 

S 

1,1 

» 

00 FOR J = I + 1 TO 4, 

« 

IF [ATTITUDE] -= [ATTITUDE] THEN 

S 


H 

MISMATCH , MISMATCH = 1; 

S 

I,J 

H 

ELSE 

H 

MISMATCH , MISMATCH = 0; 

s 

J.l I.J 

n 

EIT), 

n 

END, 

K 

CLOSE EXAMPLE 7, 


In this example, the statement 


“IF ATTITUDE5(I,“) “1 = ATTITUDE$(J/) THEN 


IS an arrayed Comparison Each element of ATTITUDE$(I,”) is compared with the corre- 
sponding element of ATTITUDES(J,'') If any of the pairs of elements is unequal, then the 
comparison succeeds and MISMATCH(I,J) is set to 1 Thus, this statement is functionally 
equivalent to 

IF (ATTITUDESd,!) “I = ATTITUDE$(J,I)) OR 
(ATTITUDES(I,2) “I = ATTITUDES (1,2)) OR 
(ATTIDUDE$(I,3) ~\ = ATTITUDE$(J3,)) THEN 


Two arrays are considered unequal if they differ in any element, they are equal if they do 
not differ in any element (i e they are equal if all elements are the same) 

It IS also possible to compare an array with an arrayed expression, for instance the 
statement 

“IF ATTITUDESd,*) = (ATTITUDES (2,*) + ATTITUDES(3,^)) /2 THEN 

would deteimuie whether or not the first set of readmgs was equal to the average of the 
second two. Fmally, an array may be compared with a simple variable or expression, e g 

IF [MISMATCH] H = 0 THEN 


or 


IF ATTITUDE$(2T0 4,1) = ATTITUDES(U) THEN 


OmuJtN'AB pjircT? TO 
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Regardless of the data types involved, the only compansons which may be made between 
arrayed operands are equal (=) and unequal (~\=) This restnction is made for the same 
reason as tn VECTOR/MATRIX compansons The question, “Is A = (1, 57, 3) greater than 
B = (2, 4, 3)’” has no clear answer 


Exercises 

6.2A Which of the foUowmg are legal arrayed statements (expressions). 
Where 

A ARRAY(5) D ARRAY(5,5) 

B ARRAY(5) E ARRAY(10,10) 

C ARRAY(IO) 

X INTEGER 
Y SCALAR 

a) A = B, 

b) A = C, 

c) A = X. 

d) D$(^5) = B, 

e) DS(5,-) = Y, 

f) ES(5,-) = B, 

g) E$(5 AT 2, 3 TO 7) = D, 

h) A, B = X, 

1) A. Y = X, 

j) C$(5 AT 3) = A + B, 

k) CS(5 AT4) = A + X, 

l) CS(B) = X, 

m) DO WHILE A > X, 

n) DO tJNTIL A = B, 

o) DO UNTIL A "1 = C, 

p) DO WHILE DS(2 AT2,2AT3) = ES(2 TO 3, 3 TO 4). 

q) DO WHILE D$(*,3) = A, 

r) DO WHILE A$(l,l) = X, 

s) DO UNTIL A = CS(5 AT 4), 

t) DO UNTIL B = E$(7, 6 TO #), 


6 2B What are the major benefits of the ability to do operations on entire arrays in one 
line of code‘s 
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6 3 ARRAYS OF OTHER DATA TYPES 

So far m this book, five data types have been introduced INTEGER, SCALAR, VEC- 
TOR, MATRIX, and BOOLEAN An array of any of these types can be created in a manner 
completely analogous to th'e INTEGER/SCALAR arrays already described For instance, 
one array of each type can be created m a sin^e DECLARE statement 

DECLARE ARRAY(10), 

I INTEGER, 

S SCALAR, 

V VECTOR, 

M MATRIX, 

B BOOLEAN, 

Each of these arrays consists of ten array elements, each element behaves in the same way 
as a simple vanable of the same data type In the case of an array of VECTORs (e g V 
above), each array element m turn consists of several components (in this case, three 
scalars) Hence, if V were to be completely initialized, 10 x 3 = 30 values would be re- 
quned As m INTEGER/SCALAR arrays, the INITIAL list may contam either a value for 
eveiy array element or a “single” value (i e initialization for one VECTOR or for one 
MATRIX) For example 

DECLARE A ARRAY(2) VECTOR INITIALfLO, 0,1,0, 0), 
creates 


A = 


as does 

DECLARE A ARRAY(2) VECTOR INITIAL(1,0,0), 
and, 



DECLARE M ARRAY(3) MATRIX(2,2) INITIAL(1,2,3,4,5,6,7,8,9,10,1 1,12), 
creates 



The same initial list could also be used to mitiabze a three by two array of 2-VECTORS 


DECLARE X ARRAY(3,2) VECTOR(2) INITIAL(1,2, 3,4,5.6,7,8,9,10,11, 12), 
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But m this case, the layout of the data is significantly different 



This IS not merely a distinction of graphical representation The concepts of data type 
and arrayness are completely independent Thus given 

DECLARE M MATRIX(2,2) INIT[AL(a,b,c,d), 

DECLARE N MATRIX(2,2) INITIAL (e,f,g,h), 

DECLARE A ARRAY(2) VECT0R(2) INlTIAL{e,f,g,h), 

the assignment statements, 

N = M N, 


and 


[A] = M [A], 

perform very different operations “N " M N,” is a simple matrix multiphcation as descnbed 
m Chapter 2, but “A = M A,” is an arrayed statement, it does two (the arrayness) multiphca- 
tion s of a vector by a matrix The results would be 

* _ Fae + bg af + bh*l 

Ice + dg cf + dhj 

m = ([“ : “] . : :]) 

As mdicated above, arrayed statements may be formulated from arrays of VECTORS 
and/or MATRiXes according to the usual rules All of the VECTOR/MATRIX operations 
may be apphed to two simple vanables (or expressions), to an array and a simple variable, 
or to two arrays of identical dimensions To see how arrayed operations on these data 
types_might be used, consider the following situation An aircraft has a position VECTOR, 
MY_POSN, and access to an array of five other vectors, [POSITIONS], which gives the 
locations of five other aircraft The code below, which executes every DELTA_T seconds, 
computes the velocity of each aircraft, the distance between each aircraft and MY_POSN, 
and the rate of approach of each toward MY_POSN 
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EXAHP1E_SS 

PROGRAn, 

DECLARE POSITIONS ARRAT(S) VECTOR, 
DECURE OLD.FOSN ASRAYlSl VECTOR, 
DECLARE ARRAYISJ, 

VELOCITY VECTOR, 
DISTANCE SCALAR, 
APPROACH RATE SCALAR, 

declare hy posh vector, 

DEC UR E 0ELTA_T SCALAR, 

/»THE ANSMERS»/ 

OBTAIN POSITIONS FRON OUTSIDE 


IVELOCITY] = ({positions] - [OLD_POSNll / DELTA^T; 

1 

. [distance! = ABVALl f POSITIONS I - MY_P0SNJ5 


:aPFROACH_RATE] = {VELOCITY] . UNIT( (POSITIONS I - HY^POSN); 


[OLD P05NJ = [POSITIONS]; 
CLOSE EXAHPLE_S; 



Each of these assignment statements has an arrayness of five The second one, for 
instance, first subtracts MY_POSN from each of the five VECTORS in POSITIONS, pro- 
ducmg an array of five “distance” VECTORS Then the ABVAL function operates on 
each VECTOR in turn producing a scalar distance which is stored mto the corresponding 
element of DISTANCE 

So far we have been deUberately avoiding any subscnpts of arrays of VECTORS and 
MATRIXes This is because a long hst of subscnpts can be rather confusing For instance, 
a three dimensional array of MATRIXes could have up to five subscnpts, Given 

“DECLARE M ARRAY(2,3,4) MATRIX(5,5),” 

one might expect the first MATRIX to be referenced as '■)” which is fairly 

compbcated, though more comprehensible than “MS(J+1,2 AT AT #—4,2) To 

aid m dealing with these difficulties, HAL/S makes a distmction between array subscnpts 
and component subscnpts The first three subscnpts of M are array subscnpts and the last 
two are component subscnpts. To make subscnpt expressions more readable, HAL/S en- 
forces the followmg rule' Whenever both array and component subscripts are applied to a 
vanable, they are separated by a colon instead of a comma Thus, the first MATRIX in the 
array M is actually *,*)” Usmg this syntax, we can re-write the second assign- 

ment statement from the example above the hard way, that is 

IDistance] - ABVAL([POSITIONS]-MY_POSN), 
is equivalent to 


ORJGiNAjC PAGE IS 

OF POOR QUAXfITYi 
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DISTANCEj = SQRT((POSmONSS(l l)-MY_P0SNj)=^’^2 
+ (POSITIONSS(1 2)-MY_P0SN2)**2 
+ (POSmONSSa 3)'MY_POSN)*'-2), 

DISTANCE2 = SQRT(CFOSlTIONSS(2 l)-MY_POSNj)**2 
+ POSITIONSS(2 2)-MY_P0SN2>'**2 
+ POSITIONSS(2 3)-MY_P0SN3)‘=*2), 

DISTANCE5 = SQRT((P0SITI0NS5(5 I)-MY_POSNj)**2 
+ POSlTIONSS(S 2)-MY_P0SN2)**2 
+ POSITIONSS(5 3)-MY_P0SN3)>'”2), 

Aside from the use of the colon^ all of the possibihties for subscnpting stall apply All 
of the TO, AT, and * partitions may be used on either side of the colon, any anthnietie 
expression may be used as a subscript, and a subscnpted vanable may be used in any con- 
text in which a simple vanable of the same data type could be used 

The data type of a subscnpted array is not necessanly the same as the data type of the 
entire array For instance, given 

DECLARE A ARRAY(3,2) MATRIX,, 

A IS a two-dimensional array of type MATRIX,'*' 

AS(1,“ IS a one-dunensional array of type MATRIX,* 

A$(l,* 1,*) IS a one-dimensional array of type VECTOR,* 


A$(l,l 1,1) IS a single SCALAR 

It IS more common to reference an entire array element or sub-array than it is to refer- 
ence a component of an array element or some sub-array of partitions, etc Therefore, 
HAL/S provides a more compact form for referencing an entire element of an array to 
which component subscripting could also apply When an entire array element is selected, 
the astensks (component subscripts) to the nght of the colon may be omitted Hence, 
the first MATRIX in the array A above can be referenced as “AS(1,1 )” Tlie convenience 
of this form of subscript is illustrated by the program below which processes an array of 
“N” 3-VECTORs and saves the three having the greatest magnitudes m a second array 


'"Each occurrence of A in the bstmg will automatically be annotated with an overpunch reflecting the effect 
of suhscnpiing on A* 
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M 

H 

M 

N 

n 

M 

H 

H 

E 

M 

S 

H 

M 

E 

M 

S 


M 

E 

M 

S 

hi 

M 

H 

M 

M 


6 3 1 Arrays of BOOLEANs 

BOOLEAN arrays are not substantially different from arrays of other data types The 
only attnbute of BOOLEAN arrays that does not directly follow from the previous discus- 
sion IS Whenever a BOOLEAN array is subscripted, the subscript must end with a coion 
The reason for this restnction is that BOOLEAN is actually a special case of BIT strings 
Like VECTORS and MATRIXes, bit strings may possess component subscripts Thus, even 
though a BOOLEAN has only one component (a single bit), the colon must be supplied 
to indicate that the subscript is an array subscript ratlier than a component subscript 

Aside from this restriction, BOOLEAN arrays are used m the same way as arrays of 
other types, declaration and initiahzation take the same forms 

DECLARE ARRAY(]2) BOOLEAN, 

A, 

B INITIAL(OFF), 

C IN1TIAL(OFF,ON,9#ON,OFF), 

and arrayed assignments and compansons also function as before 

[A3$(1T0 6.) = [B] 5(1 TO 6) & (AS(1 ) OR [B15C7T0 12), 

IFIA] = TRUE THEN 

One typical use of BOOLEAN arrays is for maintaining status tables For instance, if 
we had a set of redundant altimeters producing an array of altitude values 


EXAt1PLE_9: 

ppograh"; 

DECLARE V ARRAY! 9991 VECTOR! 3), 

DECLARE 5IGTHREE ARRAY! 31 VECTOHtS) INlTIALIOlf 
DECLARE U IHTEGER, 

DO FOR TEMPORARY 1 s 1 TO N, 

INNER 

DO FOR TEUPORARY J - 1 TO 3l 

/»»HlJMBEn OF actual ENTRIES IN V» 

IF ABVALIV 1 > A0VAL(BIGTHREE 1 THEN 
11 J 


DO, 

DO FOR TEMPORARY K s J + 1 TO 3* 


BIGTHREE = BIGTHREE t 

KJ K-1. 


END, 

BIGTHREE s V , 
J- I 


EXIT INNER, 
END, 

EHO INNER. 

END, 

CLOSE EXAMPLE 9, 

/* TRY NEH 1 


**Bit strings are fully described in Chapter 13 The word BOOLEAN is exactly equivalent to “BIT(I)” 
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DECLARE ALT ARRAY(4) SCALAR,, 

and a “parallel” array containing the time at which each value was read 

DECLARE TIMETAG ARRAY(4) SCALAR,, 

then it might be useful to define a boolean array of the same size 

DECLARE DATA_VALID-ARRAY{4) B00LEAI4,, 

each element of which indicates the vahdity of the corresponding altitude value One pos- 
sible form of this reasonableness check is shown below 


K 

H 

M 

H 

H 

H 

M 

H 

H 

M 

H 

S 


EXAMPLE A. 

pbogham; 

DECURE ARRAY! Al, 

ALT SCAUR, 

TIMETAG SCALAR, 

DATA_VALIO BOOLEAN, 

DECLARE SCALAR IKITIALIOI, 

TOTAL. Number good; 

DECLARE AVERAGE SCALAR; " 

DO FOR TEMPORARY J = 1 TO A; 

IF RUNTIME - TIMETAG > .1 OR ALT 0 OR ALT > 50000 THEN 
J J J 


E 

M 

S 


data_valid = false; 

j- 


M 

M 

E 

M 

S 

M 

M 

S 


ELSE 

DO, 

DATA VALID = TRUE, 

J- 

HUMBER_GD0D = HUMBER GOOD + 1; 
TOTAL = TOTAL + ALT T 
J 


H 

M 

M 

M 

E 

M 

S 

H 

S 

E 

H 

S 

M 


END; 

END, 

AVERAGE = TOTAL / NUMBER GOOD, 

DO FOR TEMPORARY I 5 1 TO 4; 

IF DATA_VALID THEN 
i: 

IF ABSIALT - AVERAGE) > 1 AVERAGE THEN 

I 


data_valid = false; 

I 

end; 



NOW HE HAVE SCREENED OUT DATA WHICH IS NEGATIVE OR ZERO, 
OR TOO large or TOO OLO'OR TOO FAR FROM THE AVERAGE 
CLOSE EXAMPLE_Ai 
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Exercises 

6 3A Wnte out graphically the results of the following initializations 

i) DECLARE X ARRAY(3) MATRIX(3,3) INITIAL(9# I,*) 
u) DECLARE Y ARRAY(3,3) VECTOR(3) INITIAL(9# 
in) DECLARE Z ARRAY(9) VECTOR(3) IN1TIAL(9# I,*") 
iv) DECLARE A ARRAY(27) SCALAR INITIAL(9# I,+) 

6 3B In the previous problem, the initializations lists were transformed into their graphi- 
cal interpretations Using this data, assign the twenty-first element of the Imeariza- 
tion of X, Y, Z, and A to a scalar variable, S 

6 3C Given a variable M, declared MATRIX(3,9) 

Assign the 16th through 22nd elements of the Imeanzation of X, Y, Z, and A to 
the 2nd through 8th elements in the linearization of M 

6 3 lA The Sieve of Eratosthenes is an ancient Greek method for computing prime num- 
bers, but it still works today and is quite suitable for a computer The algorithm 
works as follows 

Start with a list of mtegers from 2 to the largest number of interest Cross out all 
multiples of 2, then all multiples of 3, and so on The remaining numbers are then 
all prune 

Wnte a HAL/S program to pnnt out all primes less than 1000, using the Sieve of 
Eratosthenes (Hint Use an ARRAY of BOOLEAN type to mdicate if a number 
is pnme or not ) 
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6 4 FUNCTIONS OF ARRAYS 

In Section 6 2 we saw that the statement 

“[A] = 

where A and B are identically dimensioned arrays, results m each element of A being set to 
the square root of the correspondmg element of B As the reader mi^t expect, the same 
result may be obtamed by the statement 

“[A] = SQRT([BJ)”. 

Whenever any of the built-m functions mtroduced so far is applied to an array, the result 
IS an identically dimensioned array where each element is the result of applymg the function 
to the correspondmg element of the arrayed operand Smnlarly, the rules for functions of 
two arguments, such as MOD or DIV, are the same as for mflx operators (e g +, etc ), 
both arguments may be unaxrayed, or one may be arrayed and the other unarrayed, or both 
may be arrayed (and of identical dimensions) This usage, th^ arrayed invocation of a func- 
tion, has been amply illustrated m the previous section, HAL/S also provides a set of func- 
tions that Will only accept arrayed arguments 

One of the examples in Section 6 1 gathered some statistics on the execution time of 
the matrix inverse operation A SCALAR ARRAY( 100), TIME, was filled with 100 samples 
of the execution time of an assignment statement Then the variables T_MIN, T _^AX, 
and T_MEAN were set to the minimum, maximum and mean values from the array by 
means of a loop More compact code for the same function is shown below 

T_M1N = MINQTIME]), 

T_MAX = MAX([TIME]), 

T_MEAN = SUM([TIME])/100, 

Here, the bmlt-m functions, MIN, MAX, and SUM, reduce an array to a smgle unarrayed 
value Each of these functions (and a fourth, PROD) requires an arrayed operand The 
array may be either INTEGER or SCALAR (of either precision), and the result is an unar- 
rayed value of the same data type and precision 

The SUM function simply adds all of the array elements together 

“SUM([A])” 

is equivalent to 

“ASl + AS2 + t A$n” 

The PROD function multiphes all of the elements together m a similar manner (A$l) 
(A$2) (A$3) (A$n) MIN and MAX both search through the array, and return the 

value of the array element which is algebraically smallest (MIN) or largest (MAX) All 
of these functions will accept a multi-dimension al array, but the result returned is always 
unarrayed Thus, given 
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[Aj = (5,17-3,21), 

MIN([A]) = -3, 

MAX([A]) = 21, 

SUM(lAl) =40, and 
PROD([A]) = -5355 

The results will be exactly the same whether A is declared as 
DECLARE A ARRAY(2,2) INITIAL(5, 17,-3,21), 
or as a liner ARRAY(4) 

6 4 1 Shaping Functions 

Throughout this chapter we have stressed the fact that a linear array is not the same 
type as a VECTOR, and that a two dimensional array is not the same type as a MATRIX 
Sometimes, however, it is useful to be able to convert one type to the other For instance, 
we might want to use arrayed statements to compute the x, y, and z components of a 
vehicle’s position from some complex sensor, and then to treat the results as a 3 -VECTOR 
for further computations We already know from Chapter 2 that given 

“DECLARE A ARRAY(3) SCALAR, 

V VECTOR,” 

the conversion can be made by 

“V = VECTOR(A$l,A$2,AS3),” 

In fact, the form, “V = VECTOR([A]),” is completely equivalent Both the VECTOR 
and MATRIX conversion functions will accept any mixture of arrays and simple variables 
as operands, provided the total number of elements is correct \Vhen an array is specified 
as an operand to one of these functions, it is “unraveled”, i e it is effectively replaced with 
a hst of its elements In the same way, an array of vectors can be unraveled for assignment 
to a larger vector 

DECLARE AV ARRAY(2) VECTOR(3), 

DECLARE VEC6 VECTOR(6), 

VEC6 = VECTORg ([AV]), 

The statement above is functionally equivalent to 

^3 AT 1 = * 

^3 AT 4 ^ ^^2 » 

® f-OOR QUALITY 
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The MATRIX function works m much the sVme way, a 3 by 3 MATRIX, M, can be assigned 
as 


M = MATRIX([AV],[A]), 
yielding 

AV$(1 1), AV$(1 2), AVS(1 3) 

M ^ AVS(2 1), AVS(2 2), AV$(2 3) 

AS I, AS2 . A$3 

To perform the reverse conversion, the INTEGER and SCALAR functions are used 
These functions have already been introduced as explicit type conversions, when they are 
used with multiple simple arguments or any type of data aggregate (arrays, VECTORS, 
etc ) they return an arrayed result Thus, using the previous declaration, we can set an array 
to a VECTOR as 

[A] = SCALAR3(V), 

The SCALAR (or INTEGER) function will accept any number of arguments of any anth- 
metic type so long as the total number of SCALAR or INTEGER values agrees with the 
subscnpt of the function 

These functions have a number of uses They may be used to convert the type of data as 
shown above, to initialize an array, as in 

[SMALL_PRIMES] = INTEGER5(1,2,3,5,7). 
or, to re-arrange the elements of an array (hence the term “shaping functions”) 

DECLARE A12 ARRAY(12) INTEGER, 

DECLARE A4X3 ARRAY(4,3) INTEGER, 

DECLARE A3X4 ARRAY(3,4) INTEGER, 

[A12] = INTEGER! 2)([A4X3]), 

[A4X3] = INTEGER43([A12]), 

[A3X4] = INTEGER3*4([A4X3]), 

When, as in the last two statements above, the INTEGER or SCALAR functions possess 
multiple subscripts, the result is a multi-dimensional array Each subscnpt denotes the size 
of one dimension of the array 

Each subscnpt of the INTEGER or SCALAR function must be computable at compile- 
time (i e each must be an arithmetic expression mvolving only literals and CONSTANTS) 
In addition to the subscnpt, the precision specifiers, ©SINGLE and ©DOUBLE may be used 
to change the precision of the operand Just as m the VECTOR and MATRIX functions, 
the precision specifier is used as a subscnpt and must precede the array dimensions Thus, an 
ARRAYC12) SCALAR, S, can be converted to a 2x6 INTEGER DOUBLE array, I by 

[I] = INTEGER@j30UBLE,2,6^1^^J> 
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Exercises 


6 4A Change the solution of the 3rd exercise in Section 6 3 from the rather unwieldy and 
hard to read assignments to simpler ones using the vector shaping functions 

6 4B Assuming the followmg declarations 

DECLARE X ARRAY(2,3) SCALAR INITIAL(2#(L1,2 2,3 3)), 

DECLARE V VECTOR(3) INITIALS# 1), 

Depict graphically the results of the following shaping functions appbed to X and V 
i) INTEGER(X) 

u) INTEGER(X,X) 

m) SCALAR(V) 

iv) INTEGERSSC2,6) (2#X) 

v) MATRIX(3#V) 

vi) VECTORS(6)(X) 

6 4 1 A Use vector shaping functions to provide a clearer solution to exercise 6 3-C 

(Note This problem requires that the reader see Section 6 5 1 of the Language 
Specification ) 

6 4 1 B Given the followmg declarations 

DECLARE X ARRAY(2,3) SCALAR IN1TIAL(2#(1 1,2 2,3 3)), 

DECLARE V VECTOR IN1TIAL{ 1) 

State the types and depict graphically the values of the following expressions 

a) INTEGER(X) 

b) INTEGER(X,X) 

c) SCALAR(V) 

d) INTEGERS(2,6) (2#X) 

e) MATRIX(3#V) 
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End of Chapter Problems 

6 A The median value of the elements of an array of odd dimension may be computed 

by sorting the elements in mcreasing order The middle element of a sorted array is, 
in fact, the median value Wnte a program to find the median value of an array of 
25 integers A simple, though not very efficient, sort algorithm may be described 
as follows 

Find the smallest element of the array If it is not the first element, exchange it with 
the first Then find the smallest of the remaining elements If it is not the second 
element, exchange it with the second Continue until the entire array is sorted 

An advantage of this algonthm for the median-value problem is that it is not neces- 
sary to sort the entire array, finding the 13th smallest element is sufficient 

6B We have made many timings of 3 processes A, B, and C The results of our timings 
are m an array TIM_VALUES declared, 

TIM_VALUES ARRAY(3,25) INTEGER 

We now wish to process this information, finding the sum for all 25 timings of each 
process A, B, and C, and the sums of the times for each set of timings for A, B, and 
C (i e , row and column totals) This information is to be put in an array together 
with the raw data, and this array is to be called TIMING_DATA 

Wnte a segment of code that will create this new array and do the necessary mfor- 
mation piocessmg 

Include any assumptions made and any new vanables declared 
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7.0 PROCEDURES AND FUNCTIONS 

In HAL/S, the concept of a subroutine is realized in two forms PROCEDURES and 
FUNCTIONS Each is a block of code delimited by a block header and a CLOSE statement 
These code blocks may be nested withm PROGRAMS or within each other to any degree, 
scoping rules restnct the vanables each block may reference, thus avoiding a large class of 
potential programming errors HAL/S PROCEDURES and FUNCTIONS have two basic 
uses to share a sequence of statements among different paths througli an algorithm, and to 
segment a programming problem into manageable parts 

7 1 USER DEFINED FUNCTIONS 

HAL/S includes a large assortment of built-in functions These include trigonometric 
routines (SIN, ARCTAN), algebraic routines (SQRT, EXP), conversion functions (INTE- 
GER, VECTOR) and many others These functions may be used in expressions along with 
vanables, constants and operators, they add to the power of the language by eliminating 
much low level coding and allowing sophisticated operations to be expressed very com- 
pactly The set of built-in functions is a part of the language, but HAL/S also allows the user 
to define new functions which may then be used in exactly the same way as the built-ins 

One type of operation which occurs frequently in flight software is the limiting of a van- 
able to a given range A FUNCTION to perform this operation is Shown below 
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The function block is delimited by FUNCTION and CLOSE statements The CLOSE state- 
ment IS tile same as in PROGRAMS, it consists of the word CLOSE and an optional block 
name The FUNCTION statement contains three pieces of information the label on the 
statement, which defines the name of the function, the names of the formal parameters 
(sometimes called dummy arguments), and the return-type of the function 

LIMIT is a scalar valued function of scalars This fact is denoted by the word SCALAR, 
on the FUNCTION statement and the declaration of the formal parameters In general, a 
function’s parameters and return value may be of any data type, hence the return type must 
always be specified on the FUNCTION statement and the formal parameters must always be 
declared Declanng the formal parameters pnor to any local data is good programming prac- 
tice and should be treated as a requirement - 

J. 

The operation of the LIMIT function may be seen from the following illustration, which 
isagraphofY=LIMIT(SIN(X),l/2),ford^x<5pi/2 - ' " 


LItllT- 

FUNCTIOHC VALUE, BOUNDl SCALAR, 

declare scalar, 

VALUE, BOUND, 

IF VALUE > BOUND THEN 
RETURN BOUND. 

IF VALUE < -BOUND THEN 
RETURN -bound: 

RETURN VALUE, 

CLOSE LINlT, 


PiOGINAi: PAGE IS 
OS QUALITY 




Limt(sin(jt) ,1/2) 


7~2 Procedures and Functions 



Functions must alv/ays end by executing a RETURN statement The RETURN state- 
ment always has one operand which represents the value of the function The value returned 
may be a variable, as in LIMIT, or any expression of the appropnate data type Sometimes 
the executable code of a function consists of only the RETURN statement, for instance 
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HASS' 

FUHCT10NIREST_mSS, SPEED! SCALAR; 
DECLARE SCALAR, 

REST MASS, speed; 

TAU 

FUNCTION! VI SCALAR, 

DECLARE V SCALAR. 

DECLARE C CONSTAHTl ERaODOO I , 

2 2 

RETURN SQRTll - V / C ); 

.CLOSE TAU; 

RETURN REST HASS / TAU(SPEED1I 
CLOSE HASS; 


Using these functions, the apparent mass of a 100-ton vehicle moving at 20 kilometers 
per second can be computed by 


APPARENT_MASS = MASS( 100,20), 
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As it turns out, the MASS function is not going to be very useful Twenty kilometers 
per second is so slow (compared with the speed of light) that the relativistic mass increase 
will be lost in the round-off errors inherent in the computation To find the range over 
which this effect can safely be ignored, we could execute the following code 

DECLARE V SCALAR, 

DO FOR V = 250000 TO 0 BY -100 UNTIL 
ALMOST_EQUAL( 1 ,MASS(1 ,V)). 

END, 

WR1TE(6) THE ANSWER IS ’, V, 

This code references an additional user function, ALMOST_EQUAL, which could be 
written as shown below 
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ALt!0ST_£<5irAI.- 
FUNCTIONtA, Q) BOQtEAN; 

OECLARE SCALAR. 

A. B> 

DECLARE TOLERAMCE SCALAR. 

IF B -= 0 THEM 

TOLERAMCE = COODOl ABSIBl, 
ELSE 

TOLERANCE = 00 0 SOI. 

IF ABSCA - B) > TOLERANCE THEN 
RETURN FALSE, 

ELSE 

RETURN TRUE! 

CLOSE ALt10ST„EQUAL; 


ALMOST EQUAL is a BOOLEAN-valued function of scalars, as denoted by the word BOO- 
LEAN on the function header and the declaration of the formal parameters Hence the RE- 
TURN statements have BOOLEAN operands TRUE and FALSE 

Since no other data type js automatically converted to BOOLEAN, a BOOLEAN expres- 
sion is the only pemiissable operand to the RETURN statement of a BOOLEAN function 

Likewise, the RETURN statement of a VECTOR or MATRIX function must be supplied 
with a VECTOR or MATRIX expression, respectively Exact matching of data type is not 
always required, however, the same implicit conversions that can be performed in an assign- 
ment statement can also result from a RETURN statement These conversions are 

1 Single to double precision 

2 Double to single precision 

3 Integer to scalar 

4 Scalar to integer 

5 Integer or scalar to character 
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Aside from these exceptions, the value returned by a function must be of exactly the same 
type as that specified on the function header 

The function header serves as a declaration of the function Vanables must always be 
declared before they are used m expressions, the same rule applies to functions as well 
Therefore, function bodies are usually placed before their first invocauon in a program 

However, in the previous example, ALMOST_EQUAL was defined after it had been 
used in an UNTIL phrase In this caseit ispossible to make a valid HAt/S program- with out 
moving the function body, by DECLARING the function before it is used, as shown in the 
example below 
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EXAHPLE_H 

PRGCPAH, 

DECLARE V scalar; 

DECLARE ALHOST^EQUAL FUNCTIOU BOOLEAUJ /»< »/ 

HASS 

FUHCTIOU(PEST_HASS, SPEED) SCALAR; 

DECLARE SCALAR. 

REST_HASSi SPEED! 

TAU. 

FUnCTIOH(V) SCAUR. 

DECLARE V SCAUR. 


CLOSE TAU; 


CLOSE MASS. 

DO FOR V = 250000 TO 0 BY -100 UNTIL ALM0ST_E0UAL(1. HASSd, VJ); 
END, 

WRITEtei ‘THE ANSWER IS', V; 

ALHOsr_EGUAL 
FUtlCTIOHfA, e) BOOLEAN, 

DECLARE SCALAR, 

A, &, 


CLOSE ALM05T_EqUAL; 

CLOSE example_h; 


The FUNCTION DECLARE statement has the same general form as a vanable declaraUon 
except that the word FUNCTION (with no argument list) precedes the type specification 
Of course it is always possible to place a function body before its first invocation as was 
done with MASS and TAU above, in which case the DECLARE statement is unnecessary 
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Exercises 

7 1 A What values will be written by the following HAL/S program*^ 

PROBLEM PROGRAM, 

DECLARE 1 INTEGER INITIAL(l), 

PROCI PROCEDURE, 

DECLARE I INTEGER INlTIAL(l), 

CALL PROC2, 

1 = 1 + 1 , 

WRITE(6) I, 

CLOSE, 

PROC2 PROCEDURE, 

1 = 1 + 1 , 

CLOSE, 

CALL PROCI, 

CALL PROC2, 

1 = 1 + 1 , 

WRITE(6) 1, 

CLOSE PROBLEM, 
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1 IB What are the syntax errors in the following HAL/S program'' (Line numbers are for 
reference only ) 

1) PROB2 PROGRAM, 

2) DECLARE X INTEGER, 

3) CALL PROCl, 

4) CALL PROC2, 

5) Y = Y -r 1, 

6) PROCl PROCEDURE, 

7) DECLARE Y INTEGER, 

S) CALL PROCl, 

9) CALL PROC2, 

10) X = X + 1, 

11) PROC2 PROCEDURE, 

12) X = X + 1. 

13) Y = Y + 1, 

14) CLOSE, 

15) CLOSE, 

16) CLOSE PROB2 

7 1C 
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Consider the above nesting diagram that depicts the scoping of blocks 

For each of the procedure blocks numbered 2-6, write the numbers of the blocks from 
which that procedure may be invoked 


7 2 ARGUMENTS AND PARAMETERS 

The types of the arguments passed to a function must agree with the declaration of the 
formal parameters The formal parameters (which some languages term “dummy argu- 
ments”) are declared in the function body, the function arguments are those expressions 
specified in the function invocation For example m the invocation 

UNTIL ALMOST_EQUAL(l,MASS(I.V)), 

^ ^umeii t^ 

The two arguments are scalar expressions The formal parameters are declared in the func- 
tion body 


ALMOST_EQUAL FUNCTION! AJX BOOLEAN, 
DECLARE SCALAR, A, B,. 

DECLARE TOLERANCE SCALAR> 


CLOSE, 



Formal parameters in the functions discussed so far have all been scalars, but it is possi- 
ble for them to be of any basic data type Integer, Scalar, Vector, Matrix, Boolean, Charac- 
ter. Structure or Bit The type of a formal parameter is determined solely by its declaration 
The actual arguments supplied when a function is invoked must be of the same data types as 
the formal parameters The exception to this rule is that under some circumstances the 
actual argument will be automatically (implicitly) converted to the type required by the 
function The conversions that are permitted are the same set that are allowed m an assign- 
ment statement Those that were listed earlier as allowable type conversions in the 
RETURN statement 


The declaration of a formal parameter takes exactly the same form as any other 
DECLARE statement The INITIAL and CONSTANT attributes may not be used, but 
otherwise, any attribute is acceptable A function may have any number of formal param- 
eters, including zero The following is an example of a function m which no arguments 
appear 
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ROLL 

FOHCTIOH 1HTE5ER; 

RETURN 5 RANDOM + 1. 

CLOSE roll; 


The ROLL function returns an integer in the range 1 to 6* It may be invoked as 
DO UNTIL ROLL -s- ROLL = 7, 

Functions without parameters usually either access global data or perform some sort of in- 
put ROLL gets its “input” from the RANDOM function, though reading cards or sensois is 
actually more typical 

A function has only a data type, but formal parameters may have other attributes In 
particular, a formal parameter may be arrayed The following example is a matnx-vaiued 
function of arrays of vectors The resulting matnx consists of the dot products of each pair 
of vectors 
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DOTS 

FUMCTIClUAl, A2J MATRIX! 10, 101! 
DECLARE ARRAY! ID) VECTOR! 3), 

Ai, as; 

DECLARE RESULT MATRIX! 10, 10), 
DO FOR TENFCRARY I = 1 TO 10 J 
DO FOR TEMPORARY J = 1 TO 10, 

RESULT = Al A2 , 
I.J 1 J! 

End; 

end; 

* 

return result, 

CLOSE dots; 


Before leaving the subject of functions, one more very important point must be made 
No function may modify any of Us formal parameters That is, parameters are viewed as 
constants within the function body As a consequence, for example a formal parameter can- 
not be used as a loop control vanable since a loop control vanable is modified on each itera- 
tion 


*but not uniformly distnbuted See exercises 
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The pnmary intent of this rule is to make HAL/S code easier to read and maintain In 
languages which do not have this restriction, it is not possible to determine which variables 
are being modified by inspection of a statement like “A = USERFUNC(B,C,D),” In any 
language, it is reasonable to assume that A is the only vanable modified In HAL/S, this 
assumption will always be correct 


Exercises 

7.2A In example 6, ALMOST_EQUAL is declared a function in the declare group of the 
mam-program block 

With a minor modification to the program, this declaration is unnecessary What is 
the change'^ 

7 2B In example 7, it is stated that while ROLL returns an integer m the range 1-6, it is 
not uniformly distributed 

a) Why’ 

b) Modify the function ROLL so that it is uniformly distnbuted and incorporate it 
into a program that will count how many times a pair of “dice” must be rolled 
to have 7 come up 5 times 

7 2C Write a HAL/S program that will read from channel 5 two arrays of 5 integers 
apiece, then check if corresponding elements of the two arrays are relatively prime 
(i e , their greatest common divisor, or GCD, is 1) If they are not relatively pnme, 
pnnt out the pair and their GCD 

A standard algonthm for computing the GCD of two numbers is called the 
Euclidean algonthm, and may be descnbed as follows 

Start with integers m and n, whose GCD is desired If n = 0, then GCD(m,n) = abso- 
lute value of m Otherwise, let r be the remainder resulting from dividing m by n If 
r — 0, then GCD(m,n) = absolute value of n Otherwise, it is the case that GCD(m,n) 
= GCD(n,r) Since, by the definition of the remainder, r will decrease in absolute 
value on each iteration, it will eventually become zero The algonthm is thus guaran- 
teed to terminate 

Note The algonthm will work for any pair of integers, positive, negative, or zero 
The HAL/S built-in function REMAINDER (M,N) gives the remainder when M is 
divided by N, as required by the algonthm 

7 3 PROCEDURES 

A procedure is a code block similar to a function The primary distinction is that proce- 
dures do not return values The RETURN statement can be used in a procedure, but no 
operand may be provided When the RETURN statement is executed m a procedure, control 
IS returned to the caller The RETURN statement is not required in a procedure, as proce- 
dures (unlike functions) will return if the flow of control reaches the CLOSE statement 
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The only way to invoke a procedure is via the call statement Procedure invocations are 
not used m expressions 

The CALL statement consists of the keyword CALL followed by a procedure name and 
a list of arguments (if the procedure has defined any parameters), e g 

CALL PROCI (X,Y,Z), 

X, Y, and'Z are the arguments, the procedure defines its formal parameters just as m func- 
tions 

' PROCI PROCEDURE 

declare SCALAR,A,B 
DECLARE Q VECTOR 


RETURN, 

CLOSE PROCI, 

Formal parameters to procedures are like function parameters in all regards, and may 
not be modified withm the procedure Procedures also have ASSIGN parameter, described 
below 

Suppose that the DOTS function of section 7 2 was typically used in statements like 

LOCAL_VAR=DOTS([V1],[V2]), 

In this statement, the DOTS function is not used in an expression, but is directly assigned 
into LOCAL_VAR In such a case, some inefficiency results from coding DOTS as a func- 
tion This IS because when the RETURN statement is executed, the 100 scalar components 
of RESULT are copied into LOCAL_VAR A better arrangement would be to code DOTS 
as a procedure and invoke it by 

CALL D0TS([V1UV2]) ASSIGN(LOCAL_VAR), 

The DOTS procedure could be coded as shown below 
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□07S* 

PliOCEDUnEIAl, A21 ASSIGN (RESULT 11 
DECLARE ARPAYdO) V£CT0I!(5), 

Al, A£; 

DECLARE RESULT HATRIXtlO, lOIi 
DO fOR TEUPORAPY 1 = 1 TO 10, 

00 FOP TEMPORARY J = 1 TO 10; 

RESULT = Al A2 ; 
liJ 1 J 

END; 

END, 

CLOSE DOTS. 
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Here we see an example of an assign parameter, RESULT The statement, “DECLARE RE- 
SULT MATRIX(IO.IO),” does not create a vanable as it did jn the function DOTS, but 
merely defines the data type of the assign parameter Each assignment into RESULT 
directly modifies LOCAL_VAR Thus, no copying of data is needed 

Since vanables used as assign parameters to procedures can be directly modified from 
the procedure body, no conversions whatsoever are permitted The type of the variable 
passed as an assign parameter must agree exactly with the declaration of the assign param- 
eter In the program segment below, A is the only vanable which may be passed to P 

DECLARE A INTEGER, 

B INTEGER DOUBLE, 

C SCALAR, 

D ARRAY(2) INTEGER, 

P PROCEDURE ASSIGN(X), 

DECLARE X INTEGER, 

X = 0, 

CLOSE P, 

A procedure may have any number of formal and assign parameters in any combination 
Thus, several values can be computed m a single procedure, as shown below 
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STATISTICS 

PROCEOUPeiDATA) ASSlGHC LO„VAL, HI_VAL, MEAN), 
DECLARE DATA ARRAY! 100 I SCAUR. 

DECLARE SCALAR, 

L0_VAL, HI VAL, MEAH, 

LO_VAL = HlhaDATAl). 

HI_VAL = HAXatJATAl), 

HEAH = SUMUDATAll / 100, 

CLOSE STATISTICS, 


This procedure could then be used as in 

DECLARE SAMPLES ARRAY(IOO) SCALAR, 
DECLARE SUMMARY ARRAY(3) SCALAR, 
CALL STATISTICS(SAMPLES) 
ASSIGN(SUMM-ARYS1,SUMMARY$2,SUMMARYS3), 
WRITE{6) ‘Min, max and mean are ’.SUMMARY, 


Unlike formal parameters, assign parameters may also be modified, as in the following 
procedure which sets “AUG_LAST4” to the average of the four most recent values of 
INPUT 
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FILTER 

PROCEDUHEtINFUT) ASSIGNC ALtG_L AST^t i BUFF); 
OECLARE SCAUR » 

INPUT, AUG_LAST4i 
DECLAPE BUFF ARPAY( <)) SCAUR, 

[buff] = [BUFF] , 

1 TO 3 2 TO A 

BUFF = INPUT, 

4 

AU5 UST4 = SUN([BUFFjl / (>■, 

CLOSE FILTER; 


In this example, components of BUFF appear on the left and right sides of assignment state- 
ments BUFF IS probably not used by the code which invokes FILTER It is passed as an 
assign parameter because a separate version must be maintamed for each user of FILTER 

The rules concerning arguments and parameters are summarized below 

I. Arguments may be expressions of any complexity, but their types must match those 
specified in the formal parameter declarations The automatic conversions of preci- 
sion and between integers and scalars are performed, however 

2 Assign arguments must be variables (possibly subsenpted, but not expressions m gen- 
eral) They must match the types of the corresponding assign parameters exactly 

3 Formal parameters may not be modified by the procedure or function which 
declares them Assign parameters may be both referenced and modified 

4 Copymg of aggregate data (such as vectors or arrays) occurs only as a result of func- 
tion returns If an argument (of any type) will not fit m a machine register or accu- 
mulator, Its address is passed to tlie procedure or function Thus HAL/S uses “call 
by name” for aggregate formal parameters as well as for assign parameters, even 
though the restnction on modification of formal parameters gives the appearance of 
“call by value” 


Exercises 

7 3A Rewrite the improved ROLL function of exercise 7 2B as a procedure, and modify 
the surrounding program to invoke it properly This provides an alternate solution 
to7 2B 

Which of the two solutions is preferable*^ What general observations does this suggest 
about the choice between procedure and function forms, when both are possible‘s 
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7 4 SCOPING RULES 

The HAL/S scoping rules for vanables may be summanzed as follows 

1 A vanable may be referenced throughout the block m which it is declared and 
throughout any blocks nested in that block, provided that the nested blocks do not 
declare another vanable of the same name 

2 A vanable declared in a nested block cannot be referenced from an outer block 

3 If vanables of a given name are declared m several blocks, each reference selects the 
version in the nearest enclosmg block 

HAL/S procedures and functions may be nested within programs, or within their proce- 
dures and functions to any degree 

This block structuring capability m conjunction with the scopmg rules above enables a 
measure of functional niodulanty in the development of software In other words, HAL/S 
allows the collection of related procedures (and functions) into functional entities (them- 
selves procedures or functions) The local resources withm these entities, via declared vari- 
ables and nested procedures become unavailable, actually unseen, to ^outsiders’ Communi- 
cation takes place only on the highest, most visible levels 

Procedure and function names are also affected by scoping rules in that a procedure or 
function may be invoked from the immediately enclosing block and from any other blocks 
which are nested m the immediately enclosmg block An exception is that a procedure or 
function may not be referenced from within itself HAL/S does not allow recursion 

The following diagrams illustrate the scoping of block names In each diagram, the 
shaded area indicates the region from which the block marked with an astensk may be in- 
voked 
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7 5 ARRAY{*), AUTOMATIC, AND NONHAL 

In the previous section, a procedure was written to find the minimum, maximum and 
mean of an array of 100 scalars The STATISTICS procedure would be more general if it 
would accept an array of any size. The routine is rewntten as follows 
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STATISTICS - 

PHOCEDUREtDATAJ ASSIGN! L0_VAL, HI_VAL, HEAN1; 
DECLARE DATA AHHAT(*1 SCALAR; 

DECLARE SCALAR, 

LO VAL. HI_VAL, HEAN, 

LO VAL = MINI [DATA]); 

HI_VAL = MAXClDATAj); 

MEAN = SUfntDATA]) / SIZE! [DATA]); 

CLOSE STATISTICS; 


Two changes have been made First, the formal parameter, DATA, has been declared as an 
ARRAYC*) DATA is still a linear array, but its size may now vary from invocation to invo- 
cation Second, the constant 100 in the computation of MEAN has been changed to the ex- 
pression SIZE(DATA) SIZE is a built-m function which returns an integer denoting the 
number of actual elements m an ARRAY(*) 

The asterisk may be used as an array dimension only m the declaration of a formal pa- 
rameter An array of any data type may possess this attribute, but all such arrays must be 
linear (single-dimensiona!) 

Even though a procedure or function may be written to accept an array of arbitrary size, 
the size of each actual argument must still be known at compile-time Thus, given the 
STATISTICS procedure above and the declarations 

DECLARE A ARRAY(IOOO) SCALAR, 

DECLARE SCALAR, X,Y,Z, 

DECLARE J INTEGER INITIAL(60), 

The statements, 

CALL STAT1STICS(AS(1 TO 60)) ASSIGN(X,Y,Z), 


and 


CALL STATISTICS(A$(61 TO #)) ASSIGN(X,Y,Z), 


are both legal 



Array (*), Automatic, and NONH aL 7-15 


But, 

CALL STATISTICS(AS(I TO J)) ASSIGN(X,Y,Z), 

IS not legal because J is not a constant, i e the width of the partition (1 TO J) is not known 
until runtime 


7 5 1 Automatic Initialization 

The following function will correctly sum the array of vectors, V, only on its first invo- 
cation 




VSUH 

Fuucriomv) vector, 

DECLARE V ARRAYt*) VECTOR! 

DECLARE TOTAL VECTOR INITlALtOlt 

00 FOR TEMPORARY N = 1 TO SIEEllVl), 

TOTAL = TOTAL ♦ V ! 

N 

EMO; 

RETLSn TOTAL, 

CLOSE VSUM, 


The problem is that TOTAL is initialized to zero only on the first invocation of VSUM One 
way of correcting the problem is to add the statement, “TOTAL = 0,” before the loop. A 
more convenient means of attaining the same result is to replace the declaration of TOTAL 
with 

DECLARE TOTAL VECTOR INITIAL(O) AUTOMATIC, 

The AUTOMATIC attnbute controls the manner of initialization of a vanable An 
AUTOMATIC vanable is set to its INITIAL value on each entry to the containing code 
block In effect, the compiler generates an assignment statement for each automatically 
initialized vanable immediately after the declare group of the containing block 

It IS important to remember that by default, initialization is STATIC (the opposite of 
AUTOMATIC) If the AUTOMATIC attnbute is not specified, initialization occurs only 
once, at the time when the program is first loaded 

7 5 2 The NONHAL Attnbute 

Sometimes it is desirable to program an application in a mixture of HAL/S and non- 
HAL/S code, either to capitalize on existing software or to make machine-dependent 
operabng system interfaces which are not available in HAL/S When the non-HAL code 
consists of subroutines (procedures and/or functions) there is a convenient way of making 
them accessible to HAL/S This is the NONHAL attnbute, used in a declare statement An 
example is 

DECLARE CPU_COST FUNCTION SCALAR NONHAL(l), 
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The font! of this statement is essentially the same as the declaration of a HAL/S function 
that will be referenced before it is defined The only difference is the NONHAL attnbute, 
which indicates that the function body is not included m this compilation Note that the 
data type of a NONHAL function must still be supplied 

A similar form may be used to define a procedure written in some other language, e g 

DECLARE PEARSON_CORRELATIONS PROCEDURE NONHAL(2), 

Since a procedure has no data type, none is supplied m the declaration NONHAL proce- 
dures and functions may have formal parameters (though no assign parameters), the number 
and types of these parameters is not specified in the declaration, and m fact, may vary from 
call to call No type checking is performed on the arguments to a NONHAL procedure or 
function, and these blocks may even modify their input parameters Hence, great care 
should be taken when using the NONHAL attribute 


The operand to the NONHAL attnbute, which consists of a positive integer, indicates 
the particular language m which the subroutine was wntten The association of each number 
with a particular language is implementation dependent, and some compilers may not^sup- 
port NONHAL at all . i/ ’ * ' * 


These statement may not be used to interface separately compiled HAL/S modules A 
means of sharing HAL/S subroutines between separate HAL/S programs will be presented in 
Chapter 1 1 


End of Chapter Problems 

7A As in exercise 2B, a ball is thrown from a height of 1 10 feet with a honzontal veloc- 
ity of 4 ft/sec Suppose that it now rebounds to 75% of its previous height on each 
of 10 bounces, and consider the following skeleton of a program to compute the 
time until the tenth bounce 


DO FOR I = 1 TO NUMBER_OF_BOUNCES, 

DROP_TIME = TIME_TO_DROP (HEIGHT), 

CALL HORIZ_MOTION (DR0P_TIME) ASSIGN (HORIZ_DIST), 

TIME = TIME + DROP_TIMB, 

WRITE(6) ‘BOUNCE^ 1, ‘TIME’, TIME, ‘HORIZONTAL 
DISPLACEMENT’, HORIZ_DIST, 

CALL BOUNCE ASSIGN (HEIGHT, BOUNCE_TIME), 

CALL HORIZ_MOTION (BOUNCE_TIME) ASSIGN (HORIZ_DIST), 
TIME = TIME + BOUNCE_TIME, 

END 

CLOSE DROP, 

Complete the program by wnting all necessary declarations, initializations, proce- 
dures, and functions 
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In exercise 5A, a program was written to compute the value of a definite integral of 
the SQRT function using Simpson’s rule Modify that program to compute the value 
of a definite integral of a function of the form f(x) = ax^ + bx® + cx + d Assume 
that the quantities a, b, c, d, initial, final, and epsilon are available in that order on 
channel 5 

The increased modularity and readability brought about by the use of procedures 
and functions is not without cost Procedure and function calls are typically some- 
what expensive in terms of computer time, and their over-use can unnecessanly slow 
down a program 

For example, in problem 7A, the function HORIZ_MOTION could easily be elimi- 
nated Furthermore, on the last bounce, the height and time of the next bounce are 
computed, even though they will never be used Assuming that efficient use of com- 
puter time IS here of primary importance, rewrite the solution sO as to eliminate 
these two sources of inefficiency 
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8 0 I/O AND CHARACTER STRINGS 

The HAL/S I/O statements, READ, READALL, WRITE and FILE, are designed to pro- 
vide a convenient interface to external devices used for software checkout and non-flight 
apphcations The READ, READALL, and WRITE statements perform sequential character 
I/O to such devices as card readers and hne pnnters The file statement transfers binary 
(unformatted) data to and from random-access devices such as drums and disks These 
statements are all designed to provide the basic capability of getting data in and out of a 
HAL/S program with a minimum of programmer effort 

For sophisticated ground apphcations, the simphcity of these statements can be a dis- 
advantage when highly formatted output is required To give the programmer complete 
control over input and output formats for those applications that require it, HAL/S provides 
a comprehensive set of character manipulation facilities Any data type may be converted 
to a character stnng, operations on the resulting stnng can produce any desired representa- 
tion of the original data 

Although most flight computers do not have interfaces to character devices such as Lne 
punters, it is common practice to use ground based computers for early checkout of HAL/S 
code HAL/S I/O statements can then be used to address the wide range of external devices 
(penpherals) found on such computers 

8.1 THE WRITE STATEMENT 

The WRITE statement has already been used in the examples of the previous chapters 
A typical instance was 

WRITEC6) THE ANSWER IS', V, 

Although this statement was not fully desenbed at the time, the assumption was made that 
tlie stnng ‘The answer is” and the value of V (a scalar) would come out on some sort of 
pnnter The following paragraphs describe the manner in which the output is sent to a 
particular device and the format in which it is printed 

The routing of output to a particular device is controlled from outside of the HAL/S 
program Each WRITE statement specifies a channel number (m this case, channel 6) 
Achannel may be thought of as a virtual device or as a port between the HAL/S program and 
some peripheral HAL/S defines ten channels, numbered zero through rune, which are 
used in READ and READALL statements, as well as in the WRITE statement At the 
HAL/S level, all channels are equivalent, it is only at execution -time that the channels are 
associated with actual devices This association is made in an implementation dependent 
manner It is usually done through some type of “job control language” or through com- 
mands at an interactive termmal The appropnate HAL/S User’s Manual must be consulted 
for details In most systems, however, channel 6 is automatically associated with a Ime 
printer 
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The channel number used m HAL/S I/O statements must be an mteger expression whrch 
IS computable at compile time (i e., composed entirely of literals, constants, and the basic 
arithmetic operators). It is good practice to give a name to each channel via the REPLACE 
statement, as shown below 

REPLACE PRINT BY “6”, 

REPLACE CARDS BY “5”, 

REPLACE terminal BY “7”, 

DECLATIEI INTEGER, S SCALAR, D SCALAR ’DOUBLE, 


READ(CARDS) 1, S, D, 

WRITE(PRINT) I, S, D, 
etc 

Naming channels m this way has several advantages First, if the channels are well named 
the program will be more readable Second, it is easier to change the number m one 
REPLACE statement than the channel numbers m a collection of WRITE statements 
Finally, it is possible to find all of the I/O statements which use a particular channel by 
lookmg up the cross reference for the channel name The naming could alternately be done 
by declaring integer CONSTANTS 

After the channel number, the remainder of the WRITE statement consists of a senes of 
expressions There may be any number of expressions of any datatype Any construct 
which has been tenhed an expression in this book may be used in a WRITE statement. In 
the previous examples, the expressions have all been simple vanables, but they may be of 
any complexity Thus, values that axe needed only for output need not be stored m a 
vanable A program to compute one of the roots of a quadratic equation given scalar 
coefficients A, B and C, might consist only of 

READ(5) A. B, C, 

WR1TE(6) (-B + SQRT(B*“2-4 A C))/2 A, 

When any type of data aggregate (e g , VECTOR, ARRAY) is written, it is first unraveled 
into its mdividual integer, scalar, character, or bit components These components or array 
elements are then transmitted to the external device The sequence is the same as was 
descnbed in conjunction with shaping functions in chapter six For instance 

DECLARE M ARRAY(2) MATRIX, 

WRITE{6) M, 

results in the components of M bemg transmitted m the sequence 


MS(1 1,1),MS(I i,2)Jd5(l 1,3),MS(1 2,1),MS(1 2.2). MS(1 3,3), 
MS(2 1,1) MS(2 33) 
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When a data aggregate is unraveled in a WRITE statement, the onginal structure may not 
be retamed * In the absence of the I/O control functions (discussed in the next section), 
all of the output from a single WRITE statement is placed on as few lines as possible, with 
only spaces separating the operands and the elements of each operand The number of 
spaces placed by default between successive values (termed the default tab) is implementa- 
tion dependent 

After the operands of the WRITE statement are reduced to a sequence of Integer, Scalar, 
Character, or Bit components, each component is converted to its standard external format, 
which IS a character representation of its value. Each of the four basic data types above has 
its own format 

The standard external format of an integer is a string of decimal digits, preceded by a 
minus sign if the integer is negative Enough leading blanks are appended to make the length 
of the resultmg stnng constant for aU integers of a given precision. This standard length 
vanes from compiler to compiler, but is always large enough to contain any possible integer 
value Leading zeros are never mcluded m the representation of an integer The following 
table shows the output format of a few integer values for a compiler which assumes an 
integer field width of 6 

Value Standard External Format 

0 0 

256 256 

-32.768 -32768 

-2 -2 

Double precision mtegers have the same format, except that the field width is approxi- 

mately twice as large. 

The standard external format of scalars is scientific notation in a fixed-width field 
Scalars always take the form “bd dddE±dd” or d dddE±dd”, where each “d” represents 
a decimal numeral Exactly one non-zero digit always appears to the left of the decimal 
pomt and positive numbers are always presented with a leading blank The number of digits 
to the nght of the decimal point and the number of digits in the exponent are constant for 
any particular version of the compiler These numbers are always chosen so that all of the 
precision contained in the scalar can be presented The fixed field width simplifies the 
wntmg of code to re-format scalar values as wiH be seen in subsequent sections The fol- 
lowing table illustrates the output representation of various scalar values on a computer 
with an eight digit mantissa and a two digit exponent 

Value Standard External Format 


pi 

3,1415927E-K)0 

1/2 

5 0000000E-01 

-3 i/8 

-3 1 250000 E+00 

0001 

1 OOOOOOOE-04 

-1,000,000 

-1 OOOOOOOE-+06 


0 00 

*Some implementations will pnnt matrices one row per bne automatically, but this js not a language 
requirement 
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Note in the table above that zero is treated as a special case Double precision scalars are 
presented identically except that the standard width of the mantissa is greater 

The remaining data types, character and bit (including BOOLEAN), each have two 
standard external formats These formats are very similar, but one is more suitable for 
printed listings and the other is more suitable for output that is to be read back m by 
another HAL/S program 

The programmer specifies which format is to be used for character and bit output by 
means of the device directive The device directive is not a HAL/S statement, it is a com- 
mand to the compiler which affects the way that subsequent WRITE (and READ) state- 
ments are interpreted The device directive specifies whether the output on a particular 
channel is paged (the format suitable for pnnting) or unpaged (the machine-readable 
format) 

Paged output is orgamzed mto Imes and pages Since the WRITE statement is most 
frequently used to obtain printed diagnostics and results, paged output is generaEy the 
default 

Unpaged output is simply a stream of data values m a format compatible with the 
READ statement To designate a particular channel as unpaged, the device directive is used, 
as shown below 

column 1 channel number 0—9 

I -1 

D DEVICE CHANNEL=6 UNPAGED 

t 

no semicolon 

Compiler directives may vary from implementation to implementation All present 
compilers mclude tlie device directive as shown above Other directives are descnbed in 
HAL/S Users Manuals These directives should not be considered as executable statements 
The presence of a device directive anywhere m a compilation governs all uses of the speci- 
fied channel 

The standard external format of character stnngs on a paged file is simply the content 
of the stnng, with no conversions or padding On an unpaged file, the character stnng is 
enclosed m single quotes (‘) The output from the statement 

WRITE(6) ‘The answer is’, V, 

Will be 

THE ANSWER IS 7 5836210E+05 
on a paged file, but will be 

‘THE ANSWER IS’ 7 5836210E+0S 


on an unpaged file 
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The standard external format for bit strings is a senes of ones and zeros As in character 
strings, bit output is enclosed in quotes on an unpaged file A BOOLEAN consists of a single 
bit, so there are only four possible outputs as shown below 


Boolean Value 

Paged Output 

Unpaged Output 

TRUE/ON 

1 

■r 

FALSE/OFF 

0 

‘0* 


Longer bit stnngs (see Chapter 13) are output with a blank between every set of four bits to 
enhance readabihty The value HEX‘1234’ would be output as 0001 0010 001 1 0100 on a 
paged file, and as ‘0001 0010 001 1 0100* on an unpaged file 

For character and bit types, only the unpaged format is compatible with the READ 
statement Since these types are of a variable length and may contain embedded blanks, 
the quotes are needed to indicate the end of one value and the start of the next 

In summaiy, the WRITE statement will evaluate a hst of expressions of any data type, 
convert the resulting values to their standard external formats, and transmit these to the 
device which has been associated with the specified channel There are no restnctions on 
the expressions m a WRITE statement, and in no case will any data be lost in the transla- 
tion to the standard external form As a result, the WRITE statement is extremely easy 
to use if the format of the output is of little concern, this makes it convenient for diagnos- 
tics, but less appropriate for report generation 


Exercises 

8 1 A ^Vhy IS It generally considered good programming practice to give a name to each 
channel for I/O functions and use the HAL/S REPLACE statement to assign the 
channel number’ 

8 IB What happens when an executing program encounters a HAL/S WRITE statement 
followed by a list of expressions’ What limitations are there on the expressions 
that are legal in a WRITE statement’ 

SIC Given the following declarations 

DECLARE S SCALAR, 

I INTEGER, 

V VECTOR, 

M MATRIX, 

B BOOLEAN, 

C CHARACTER, 
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^Vl^ch of these WRITE statements will produce output compatible with the HAL/S 
READ statement 

a) On a PAGED device’ 

b) On a IBsfPAGED device’ 

1) WRITE(6) S, I. V, M, 

2) WRITE(6) T = ’, I, V = V, 

3) WRITE(6) V$I, V$3, V$2, B, 

4) WRITE(6) B, C, 

5) WRITE(6) S, M, VS(2 TO 3), I, 

8 2 I/O CONTROL FUNCTIONS 
When the statement 

WRITEC6), M, 

where M is a matrix, is executed, the three-by-three structure of M is lost The arrangement 
of the components of M depends only on the field width of a scalar, the amount of the 
default tab, and the maximum number of characters per pnnted hne If the width of a 
scalar is 13, the default tab is 5 and a line is 132 characten, then seven components will 
be pnnted on the first hne, and the remaimng two on a second hne To obtain a better 
arrangement, the foUowmg WRITE statement may be used 

WRITEC6) MS(1,=»), SKIP(I), COLUMN(l), MS(2,*), SKIP(l), COLUMN(l), 
MS(3,*), 

This statement will cause one row of the matnx to be printed on each output line 

SKIP and COLUMN are I/O control functions Syntactically, they resemble other 
functions, but they may only be used as arguments to the sequential I/O statements, WRITE, 
READ, and READALL Each has a single argument which may be any integer or scalar 
expression, if the expression is scalar-valued, it is rounded to the nearest mteger These 
functions do not return a value, but only control the location in a file where subsequent 
data will be read or written. 

The I/O control functions may be thought of as moving a read/wnte mechanism across 
a two dimensional medium The SKIP, LINE, and PAGE functions cause vertical movement 
and the COLUMN and TAB functions cause horizontal movement , In the example above, 
“SKIP(l), COLUMN(l)” moves the write mechanism to the begmnmg of a new line The 
SKIP function causes relative movement (down one hne), and the COLUMN function 
causes absolute positioning (to the first column of the new hne) 

The sequence, “SKIP(l), COLUMN(l)”, is imphed at the begmnmg of each WRITE 
statement This automatic positioning will be ovemdden if the WRITE statement has 
exphcit honzontal and vertical positiomng functions pnor to the first data operand If only 
honzontal or vertical positioning is specified, then the default movement is partially over- 
ndden In the statement 
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WRITE (6) COLUMN(IO), 

the default honzontal positioning to column one is ovemdden, but the default vertical 
positioning to the next line is not Dkewise, the statement 

WRITE(6) M$(1,I), TAB(12), MS(1,2), TAB(12), 

would leave twelve blanks between the end of one component and the start of the next 
Unless ovemdden by explicit honzontal motion commands, a TAB function is imphed 
between each pair of data operands to the WRITE statement The amount of the default 
TAB IS implementation dependent 

Using these functions, an array of matnces 
DECLARE AM ARRAY(2) MATRIX(3,3), 
can be output in a readable form by 

WRITE(6), SKIP(2), COLUMN(IO), AMS(I TAB(20), AMS(2 1,-), SKIP(I), 
COLUMN(I), ‘AM=’, COLUMN(IO), AMS(1 2/), TAB(20), AM${2 2^, SKIP(l), 
COLUMN(IO), AM$(1 3,='), TAB(20), AM$C2 3,*), SKIP(2), 

yielding 



AMS(1 ) AMS(2 ) 


The effect of the remaining I/O control functions, LINE and PAGE, depends on whether 
they are used on a paged or an unpaged channel On a paged channel, the LINE function’s 
argument must be in the range one to the maximum number of hnes per page The device 
mechanism is moved fonvard until the current line number is the same as that specified in 
the LINE function Tlus may cause the device mechanism to cross a page boundary The 
most common use of the LINE function is to advance to the top of the next page, as m 

WRITE(6) LINE(i), ‘This is a page header’, 

^Vhen used on an unpaged channel, the LINE function causes movement to an absolute 
Ime number within the entire file 

The PAGE function may only be used on paged files PAGEfn) results in relative move- 
ment by “n” pages The current column and line numbers are not affected A typical use of 
the PAGE function is to skip over unwanted pages of header on input 
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The preceding paragraphs apply equally to all implementations of the HAL/S language. 
The pnncipal vanations between implementations are the number of columns per Ime 
(and lines per page) and the result of requesting backward movement of the read/wnte 
mechamsni 

The statement 

WR1TE(6) Results follow’, TAB(-14), ‘ 

may have any of several results, depending on the compiler in use On some systems, the 
two character stangs may both be printed in the same columns of the same line, yieldmg 
RESULTS FOLLOW On other systems, the second character stnng may overlay the first, 
yielding just the underscores Similarly, backwards line movement may or may not be 
supported and may be device dependent the effect of executing SKIP{— 1) may vary from 
system to system The relevant User’s Manual should always be consulted before requesting 
negative column or line movement 

The following table summarizes the I/O control functions 

I/O Control Function Operation 

SKIP(K) Relative line movement 

Line = (Line + K) mod page size 

LINE(K) Absolute hne movement 

Line = K 

TAB(K) Relative column movement 

Col = Col + K 

COLUMN(K) Absolute column movement 

Col = K 

PAGE(K) Relative page movement 

Page = Page + K 


Exercises 

8 2A Consider the following HAL/S statements 


DECLARE ARRAY(3) MATRIX, MAT_ARR1, MAT_ARR2, 


WRITE(6) MAT_ARRI, MAT_ARR2, 
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a) Descnbe what the resulting output would look like 

b) Change the WRITE statement such that the resulting output will be formatted 
as thus 

IMAT_ARRli ] [MAT_ARR2i ] 

[MAT_ARRl2 ] [MAT_ARR22 1 

[MAT_ARRl3 ] [MAT_ARR23 ] 

8 2B For each of the I/O control functions below, which of the following statements 
apply to Its use in HAL/S WRITE statements'? 

a) default characteristics (imphed unless overndden) 

b) causes absolute vertical movement 

c) causes relative vertical movement 

d) causes relative honzontal movement 

e) causes absolute honzontal movement 

1) LINECn 5) COLUMN(l) 

2) SKIP(I) 6) SKIP(O) 

3) TAB(20) 7) SKIP(5) 

4) PAGE(2) 

8 3 THE READ STATEMENT 

The syntax of the HAL/S READ statement is also quite simple Some examples (e g , 
“READ(5) A, B, C,”) have already appeared in this manual, the general form is not much 
more elaborate The READ statement consists of the word READ and a channel number 
followed by a list of variables and/or I/O control functions There are no restrictions on the 
vanables, and the I/O control functions work the same way as in the WRITE statement 

When any type of data aggregate appears in a READ statement, the components are 
filled m the "natural sequence”, i e , m the same order in which they would be wntten 
m the code 

DECLARE A SCALAR, V VECTOR, I ARRAY(2) INTEGER DOUBLE, 

READ(5) A, V. I, 

data from the external file will be assigned in the sequence 
A, V$l, V$2, VS3, ISl, i$2 

If the file was onginally produced (stored on disk, punched on cards, etc ), by a HAL/S 
WRITE statement, its contents will be in the appropriate format for the READ statement 
Except for character and bit strmgs on paged files, the standard forms produced by the 
WRITE statement are aU acceptable on input 

Input data prepared manually may be wntten in free format, all of the followmg lines 
are acceptable mput for the READ statement above 
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a) 0, 0, 0, 0, 0, 0 

b) 1 3E5 3 271E+06 001 24 -2 

c) 1, 2 3 4, 5 6 

Thft ftxamples illustrate several points First, it is not necessary to distinguish between 
integer and scalar values Any sequence of characters which compose a vahd integer or 
scalar hteial (as described m chapter two) is suitable to be read into either an integer or a 
scalar, noh'integfal values read into an integer will be rounded 

Individual values (in this case, numbers) m the input file must be separated by blanks 
or other dehmiters One or more blanks, a smgle comma, or a single comma and any number 
of blanks are aU equivalent. Multiple commas are a special case, which indicate “missing 
data” If the input file contained 

1> , 2, 3, 4, 5 

then the value of the s?cond scalar m the READ statement above (V$l) would not be 
changed 

When a semicolon is encountered m the mput stream, the current READ statement is 
terminated If the mput consisted of 

15 , 2 6 , 

then only two values would be read, regardless of subsequent values and punctuation in 
the file This fact can be useful when a program must process a vanable number of mput 
values For instance, a program to sum a sequence of numbers could be coded as 


K 

H 

H 

M 

H 

M 

s 

M 

5 

H 

M 

M 


add: 

PROGRAM, 

DECLARE TOTAL SCALAR INITXAUO) AUTOMATIC! 
DECLARE A ARRAY! 100) SCALAR INITIALlOlf 
REAOISl [Aj! 

DO FOR TEMPORARY I = I TO 100 UNTIL A = 0! 

1 

TOTAL = TOTAL *■ A ! 

I 

END! 

WRITE! 6) 'TOTAL IS TOTAL! 

CLOSE ADD, 


One valid mput to this program could be 

-3 95, -17 31, -9 93, 572 35, -250, +1 10, -45, +7 50, 

In this case, the READ statement would terminate when the semicolon was reached, leaving 
the rest of the array (AS (9 TO 1 00)) equal to zero 
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As illustrated above, a READ statement may take data from many lines of a file Lines 
will be processed until either a semicolon is reached or values are found for all of the oper- 
ands of the READ statement The end of each line of input (e g , card column 80) serves 
as a delimiter equivalent to a blank Hence, individual values may not be split across lines 

As in the other sequential I/O statements, WRITE and READALL, a SKIP(l), 
COLUMNfl) operation is imphed at the beginning of each READ statement This may be 
overridden by the same means used m the WRITE statement, e g , 

READ(5) SKIP(0), TAB(O), X, 

can be used to read data to the nght of a semicolon which terminated the previous READ 
statement If the input data happens to be stored in fixed card columns, then the TAB and 
COLUMN functions can be used to skip over unwanted data ' 

Any attempt to read past the end of a file will result in a runtime error Chapter ten 
describes a mechanism for recovenng from this and other errors 
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8 3A Let the program ECHO begin as follows 


ECHO PROGRAM, 

DELCARE INTS ARRAY(3) INTEGER, INITIAL(I), 
SCALS ARRAY(3) SCALAR, INITIAL(0), 
READC5) INTS, SCALS, 


What will INTS and SCALS contain given the following mputs"^ 

a) 8, 7, 6 55, -1, 2 25E2, 4, 

b) -lE-1,,,7 2. 

c) 2 49„2 51,2 49„2 51, 


8 3B Suppose input intended for the program ECHO of problem 8 3A has been formatted 
as follows 


Col 1 
4 

INTS 

SCALS 


Col. 8 

4 

3 4 5 

6 1 72 83 


Col 78 

4 

00000001 

00000002 


Modify the READ statement in ECHO to ignore the labels on the left and the 
sequence numbers on the right, and read in the values for INTS and SCALS 
properly. 
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8 4 CHARACTER STRINGS 

A HAL/S character variable may contain a stnng of characters, the number of charac- 
ters IS allo^ved to vary at runtime from zero up to a maximum specified in the declaration 
of the vanable The character datatype is declared in the same general way as other data 
types, e g , 

DECLARE STARS CHARACTER(5) INITIALS* 

Tiie vanable STARS is a character stnng of maximum length five and initially con- 
taining five astensks Each character vanable has both a maximum length and a current 
length The current length is adjusted every time the vanable is assigned, though it can never 
become greater than the declared maximum If the length of the stnng on the nght-hand 
side of an assignment exceeds the maximum length of the target vanable, characters are 
truncated from the nght before assignment In the code below, RATING starts with a 
length of zero (it is initialized to the null stnng), but after the assignment the current 
length becomes three ^ 

DECLARE RATING CHARACTER(5) INITIAL("), 

DECLARE QUALITY INTEGER INITIALO), 

RATING = STARS$(1 TO QUALITY), 

As shown, tlie general form of character subscnptmg is the same as vector subscnpting, 
except that the width of a partition docs not have to be known at compile-time 

In addition to subscnpting a character stnng to pick out a single character or a sub- 
string, HAL/S provides an operator for putting two stnngs together This is the catenation 
operator, denoted by the keyword “CAT” or by the sign “ I 1” The effect of this operator 
IS to append the nght-hand operand to the end of the left-hand operand 

‘ABC’ \ I ‘DEF’ 
yields 

‘ABCDEF’ 

Character stnngs may also be compared with each other, as in 

IF RATING NOT = ****’ THEN EXIT, 

and may be compared for “greater than” or “less than” in order to sort them alphabetically 
The latter capabihty is affected by the collating sequence and is therefore implementation- 
dependent More details can be found in the appropnate Users Manual 

HAL/S also provides a set of built-in character functions (listed in Appendix A) The 
following paragraphs desenbe some of these functions as well as providing some practical 
examples of character operations 
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One of the major uses of character vanables and operations in HAL/S is formatting out- 
put In the WRITE statement below, the value of the integer variable N will be inserted 
in a line of output 

DECLARE N INTERGER, 


WRITE(6) ‘the answer is ‘I IN if fps’, 

If N IS SIX, the output from this statement will look hke 

THE ANSWER IS 6 FPS 

This statement illustrates an important rule Whenever an integer or scalar is used in a 
character expression it is converted to its standard external format (a character string) 
The standard external format of an integer includes leading blanks These blanks can be 
removed by means of the TRIM built-in function, as shown below 

WRITE(6) ‘the answer is M ITRIM(N) 1 P Fps’, 

This statement will produce 

THE ANSWER IS 6 FPS 

The TRIM function removes all leading and trailing blanks from a character stnng Its argu- 
ment must be a character expression, thus N is converted to character before the invocation 
on TRIM in the statement above 

Similar character functions are RJUST and UUST, which add leading and trailing 
blanks, respectively Each of these functions takes two arguments, a character expression 
and a field width These functions nght or left-justify the value of the character expres- 
sion m a field of specified width With N= 6, RJUSTfN,2) yields ‘ 6’ and UUST(‘XYZ’,4) 
yields ‘XY2 ’ 

Note that within the quotes of a character hteral, blanks are treated the same as any 
other character Any character may be used m a quoted stnng 
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Like vanables of any data type, character stnngs may be arrayed The following func- 
tion could be Used to display the value of a boolean (B) in the format speciSed by an 
integer (TYPE) 


« 

state: 

H 

,FUHCTIONlBi TYPE) CHARACTERlSli 

t1 

DECLARE S BOOLEAN > 

11 

TYPE INTEGER,. 

n 

DECLAPE YES AHHAYt'i) CHAHACTER151 INITIAL! "TRUE" , 'ON', 'OPEH', 'VALID'); 

M 

DECLARE NO ARRAY! 4) CHARACTERIS) INITIAL! 'FALSE* , 'OFF', ‘SHUT*, ’ERROR'); 

E 


H 

IF B THEN 

E 

f 

n 

RETURN YES ; 

s 

type: 

M 

ELSE 

E 


n 

RETURN NO ; 

s 

type: 

H 

CLOSE STATE; 


This function could be invoked as shown below 

DECLARE BOOLEAN INITIAL(OFF), VALVE, POWER, 

WRITE(6) ‘VALVE=’,STATE(VALVE,3),‘POWER=’,STATE{POWER,2), 

This example would produce 

VALVE=SHUT POWER-OFF 

The concepts of maximum length and current length apply to each element of an array, 
and to the value returned by a character function The maximum lengths of all elements of 
a character array are equal, but the current lengths may vary Thus, the length of the value 
returned by STATE can vary from two to five The maximum length on the function 
header can never be exceeded, however, if “RETURN ‘ABCDEFHV’ was executed, the 
stnng would be truncated at the nght yielding ‘ABODE’ 

It should be noted in the example above that the element of a character array such 
as YES IS represented by “YBSS(N )“ and not “YESSN” The trailing colon must be sup- 
phed to indicate the absence of component subscnptingjust as in arrays of vectors, matnces 
and Bit Stnngs (Booleans) As before, both array and component subscnpts may be supplied 
if needed YESS(3 2) is the second character of the third element of YES ‘P’ 

A few examples of automatic conversion to character type have appeared above It is 
also possible to exphcitly convert to character type via the CHARACTER shaping function 
Tlus function is syntactically identical to the INTEGER, SCALAR, VECTOR, and MATRIX 
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shaping functions descnbed previousJy It converts its argument or arguments to their 
standard external formats It has an additional form that allows conversions to octal or 
hexadecimal as shown below 

WRITE(6) CHARACTERS{@0CT)(BIT(N)), 

If the integer N is equal to 29, this statement will produce the output 

‘ 0000000035 ’ 

When the CHARACTER function is subscnpted with a radix (@OCT or ©HEX), its oper- 
and must be a bit string The BIT function above is not fully descnbed until Chapter 13, 
but in this case it merely returns a bit pattern equivalent to its argument 

Another use of the character manipulation facilities is reading data that is not in the 
standard HAL/S format Integer data that has been punched on cards in the format shown 
by the table below could be read in by tlie HAL/S statements which follow it 

Input Format 


Columns 

Description 

1-3 

case number 

4-5 

age 

6 

1 =male, 2=female 

7-10 

X factor 


Example of Input 
1152612781 


ft 
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This would yield the following values 

CASE_NUM = 115 

AGE — 26 

SEX = 1 

X = 2781 

When the argument to the INTEGER shapmg function is a character stnng, all of the 
characters musfbe m^the range O— 9 (le , compnse-a vahd integer) Thus, this code would 
not work if the CASE^NUM field (for instance) was coded with leading blanks instead of 
leading zeros The TRIM function can be used to make the program more tolerant as in 

CASE_NUM = INTEGER(TRIM(C$(I TO 3))), 

The RBADALL statement used to obtain C from channel 5 (probably a card reader) will 
be fully descnbed in the next section of this chapter 

Since the standard external format for scalars is not always convenient, a character func- 
tion like the one below can be used to write a more readable XX YYY notation 
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REFORMATS 

EUHCTIOmx, DECIMALS* WIDTH) CHAHACTERt 20 I , 

DECLARE X SCAUR, 

DECIMALS IHTEGEH, 

WIDTH INTEGER, 

X IS THE NUMBER TO BE CONVERTED, DECIMALS IS THE NUMBER OF 
DIGITS TO BE PRINTED AFTER THE DECIMAL POINT, AND WIDTH IS 
THE TOTAL LEN5TH OF THE STRING RETURNED 

DECLARE Y SCALAR; 

DECLARE C CHARACTER! 20 ) : 

DECLARE S CHA^ACTERlll; 

DECLARE ZEROS CHARACTER(ED) CONSTANT! CHARI 20 )' O’ ) 5 
IF X < 0 THEN 
DO, 

Y = -x; 


s = 

END, 

ELSE 

DO, 

Y 5 x; 

s = • ■; 
end; 

, DECIMALS 

C = CHARACTER (INTEGER (10 Y),, 

. SiDOUBLE 


IF LENGTH! C) < DECIMALS THEN 

C = ZEROS i ! C. 

1 TO DECIMALS-LEHGTHtC) 


RETURN RJUST( S I I C 


II 


1 TO «-DECIHALS 


II C 


Tott), width; 


R-DECIMALS-l 


CLOSE REFORMAT, 
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With the function before, 

WRITE{6) REFORMAT(SQRT(2), 3, 5), 
would yield 

‘1 414’, 1 e , a five character field with three decimal places 

Two new features are introduced in this example First, the expression “CHAR(20)‘0”’ 
IS a shorthand notation for the stnng consisting of twenty zeros It is a character literal 
whicli may also be used in an assignment statement such as 

C = CHAR(80)‘ /*blank card*/ 

An additional built-in function, LENGTH, is also used LENGTH takes a character variable 
or expression as an argument and returns an integer representing its current length 

The REFORMAT function shown here has one deficiency It does not check X for 
being too large for a field of width WIDTH A good fixup would be to return part of Xin 
scientific notation if it is too large for the field This improvement is left as an exercise 


Exercises 


8 4A Winch of the following expressions are legal character subscnpts*^ Which are legal 
vector subscnpts'' (Assume all vanables are of integer type ) 

a) (4) 

b) (I+l) 

c) (7 AT 3) 

d) (2 TO 1-2) 

e) (6 AT I+J) 

0 (I TO J) 

g) (K TO K-1) 

8 4B What will the output be from the following program’ 

PROG„B PROGRAM, 

DECLARE CH CHARACTER(15) IN1T1AL(‘ABC’), 

REPLACE PRINT BY “WRITE(6)”, 

PRINT CH, CH I ICH, 

CH = ‘123’MCHM‘456’, 

PRINT CHSd TO 5), CHS(5 TO #), 

CH = CHSd TO 2) I ICHS(3 AT #-3), 

PRINT CH, CH(#-2 TO #), 

CLOSE PROB_B, 
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8 4C Given the following declarations and assignments, which of the following compan- 
sons are true’ Assume the ‘A’ < ‘B’ < < ‘Z’ 

DECLARE C1S.CHARACTER(15) 
declare CHARACTER(l) 

Cll, C12, 


CIS = ‘A’, 
Cll = ‘A’. 
C12 = ‘B’, 


a) ‘A’ = Cll 

b) CIS = *A' 

c) CIS = Cll 

d) CIS n = C12 

e) ‘A' < C12 

f) ‘A’ < ‘AB’ 

g) Cll < ‘AB’ 

h) CIS < Cll CAT C12 

i) ‘r < ‘1’ 

j) V 1 1‘ ’ < 

8 5 OTHER HAL/S I/O CONSTRUCTS 

The READ and WRITE statements already descnbed allow data to be transferred 
between a HAL/S program and a sequential character onented file The data is always 
transferred m a standard format according to its type, though I/O control functions allow 
arbitrary positiomng of the data Since character operations allow output reformatting, the 
addition of an unformatted read (READALL) gives the programmer complete control 
over sequential character files 

HAL/S also supports random-access files, which do not necessarily contam charac- 
ter data, via the FILE statement, and provides some features which aid m transfemng data 
to and from special purpose sensors and effectors 
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Exercises 

8 5A What HAL/S data types may be read using the READALL statement'? 

8 5B How are character stnngs suitable for input via the READALL statement different 
from those suitable for input via the READ statement? 

8 5 1 The READALL Statement 

One example of the READALL statement, 

DECLARE C CHARACTER(80), 

READALL(5) C, 

was used in the previous section Aside from the READALL keyword, the format of this 
statement is exactly that of the READ statement, although a restriction is made that all var- 
iables be of character type 

The READALL statement can input up to one line of characteis from a HAL/S channel, 
the characters read are placed directly m the character vanable or vanables without any 
special interpretation of the delimiters blank, comma, and semicolon Characters are trans- 
ferred until either all of the vanables have been filled to their declared maximum lengths, or 
the entire line has been read, whichever comes first Unless the READALL statement begms 
with I/O control functions (e g SKIP, LINE) the device mechanism is advanced to the be- 
ginning of a new line before the first character is transferred 

When a list of variables or a character anay is specified, each vanable or element is filled 
m turn There is no automatic movement of the device mechamsm between vanables This 
allows a Ime of data to be broken into fields, a card could be read as eight 10-character 
fields by 

DECLARE CARD ARRAY(8) CHARACTER(IO), 

READALL(S) CARD, 

I/O control functions may also be used with READALL Using the declaration above, 
just the first and last fields could be read by 

READALL(5) CARDSd ), COLUMN(71),. CARDS(8 ), 

READALL uses the same set of channels as READ and WRITE Input and output 
should not be mixed on the same channel, but READ and READALL may both be used 
on the same uiput file or even the same card as m the following example 
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outer: 

PROGHAMf 

DECLARE SCAUR* 

PHI* ALPHA, 

DECLARE lUITIAL POSH VECTOR DOUBLE; 
DECUPE tIODE IHTECER* 

PRINT BOOLEAH, 


INITIALIZE • 

procedure, 

declare V NAME CH AH ACTER E 5 } ; 

REPLACE INFILE BY "5", 

DO WHILE TRUE. 

READALLE INFILE I VNAtlE, 

VNAHE = TRIHEVNAMEJ, 

IF VNAHE = ’PHI* THEN READdHFlLE] SK1P(0>, COLLinHt?). PHI! 

IF VNAHE = 'ALPHA' THEN READCINPILE) SKIPLOJ. COLUHNI91, ALPHA! 

IF VNAHE = 'I POSH' THEN READ(INFlLE) SKIPCO), COLUHH(9), INITIAL POSH, 
IF VNAHE = 'HQQE' THEN READtlHFILE) SKIP(O), COLUHNC9), MODE, 

IF VNAHE = 'PRINT' THEN READCINFILE) SLIP tO), COLUMHeVI, PRINT, 

IF VNAHE = 'END' THEN EXIT; 

END* 

IF PRINT then 

HRITEUS PHI. ALPHA. INITIAL POSH, MODE; 

CLOSE INITIALIZE, 


CLOSE OUTER! 


The INITIALIZE procedure above could be used to read initial values for a simulation 
run. The input lines would consist of a variable name m the first eight columns followed by 
an imtial value m the standard external format /or that data type, e g 


00137 

T 

1 . 1 * 1 


PHI 

PRINT 

I_POSN 

END 


This type of initiabzation module takes httle memory and is fairly efficient if there are 
not too many variables Its mam advantage is that it is very easy to codej particularly if a 
parameterized REPLACE macro is used to abbreviate the repeated code 
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REPLACE TESKID, VAR) BY " 

IF VNAME = ID THEN READC5) 
SKIP{0), C0LUMN(9), VAR“, 


TEST(‘ALPHA', ALPHA), 
TEST('I_POSN’, INITJAL_POSN), 


etc 


8 5.2 The FILE Statement 

The FILE statement is used to read and wnte random access files These files (which are 
numbered separately from channels) are organized into records which may be accessed in 
any sequence Generally speakmg, any record may be read or wntten in the same amount 
of times as any other (hence the term “random access”) 

The FILE statement has two forms 

FILE(number, address = expression, 

and 

vanable = FILE(number, address). 

The construct FILE(number, address) is called a file expression When the file expression is 
used on the left of the equals sign (the output file' statement), the value of “expression” is 
written to the record specified by “address” on the file specified by “number” When the 
file expression is used on the nght hand side (the input file statement), the record denoted 
by the file expression is read into “vanable” 

The FILE statement is highly implementation-dependent The appropnate User’s 
Manual should be consulted before it is used 

Tlie “number” and '“address” operands of the file expression may be any integer or 
scalar arithmetic expression “Number” must be computable at compile-tune If the ex- 
pression IS scalar, it will be rounded to the nearest integer The legitimate ranges of these 
mtegers are implementation dependent 

There are no restrictions on “expression” in the output file statement All of the fol- 
lowing statements are legal 
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DECLARE MATRIX(IO.IO), Ml, M2, 

DECLARE A ARRAY(99) INTEGER, 

DECLARE C CHARACTER{20), 

DECLARE I INTEGER INITIAL! 17), 

REPLACE HIST BY “5”, 

FILE(HIST, 12) = Ml, 

F1LE(5, I+l) = MI + M2++T, 

FJLE(HIST,8) = Ml$(2 TO 7,*), 

FILE(HIST,9) = A+1, 

FILE(HIST,10) = C II I, 

There are, however, some restrictions on “vanable” in the input file statement These 
are the same restrictions that apply to assign parameters of procedures “vanable” must be 
one of the following 

1 An unsubscnpted vanable 

2 An entire array element 

3 A contiguous partition of a single vector or matnx 

The following input file statements are all legal 

Ml = FILE(HIST,2), 

C = FILE(3,3), 

A$I = FILE(4,4), 

MlSd,*) = FILE(5,6), 

It IS not possible to read into a non-contiguous partition of a MATRIX (M1S(*,1)) or an 
array partition (A$(5 TO 10)) or a partition of a character string (CS(3 TO #)) 

Both versions of the file statement cause the transfer of unformatted binary data Thus, 
if the file statements are to be used reliably, a record should always be read into a variable 
of the same type and organization as the expression that was written Since the compiler 
cannot know how a Ole was onginally wntten, it is up to the programmer to ensure 
compatabihty 

I 

8 5 3 Avionics I/O 

HAL/S does not mclude any specific avionics I/O statements, principally due to the fact 
that there is'currently no standardization of airborne I/O systems Some flight computers 
have one or more mdependent I/O processors or channels with their own unique mstruction 
sets Other computers either have CPU mstructions for I/O or have a section of memory 
that IS “hard wired” to external devices (e g stormginto location 5432 [octal] might lower 
the landing gear) 

Operatmg systems also vary widely m this regard In some systems I/O is requested by 
application programs, while m others it is all done “automatically” on a periodic basis 
Finally, every system wdl have a different complement of sensors, displays, effectors, etc , 
each of which may have its own unique formatting and protocol requirements 
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Although there is presently no way to implement generalized avionics I/O as a HAL/S 
statement, the language does provide a number of features that allow mdividual systems to 
be tailored 

1 Structure (chapter 9) and compool (chapter II) templates allow a section of 
memory to be mapped into a collection of vanables of assorted types 

2 Procedures and functions can be coded in assembly language and interfaced to a 
HAL/S program (see chapter 1 1) 

3 Bit stnngs (chapter 13) allow low-level formatting via subscnpting and logical 
operators (AND, NOT, etc ) 

4 I/O errors may be handled via the ON ERROR statement descnbed m chapter 10 

5 Event vanables (chapter 12) allows waitmg for I/O completion, and may tngger 
transactions when signalled 

The following code illustrates some of the ways that I/O might be performed in alter- 
nate systems 
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A550RT5OI0 

PPOGHA“1, 

PcPLACF CEARDCt,N &r “l«TEGSrtC0CT‘S«2 ' 

OCUAVPEAD EVENT* 

OECLAPE nEKUnS A«?RAT0£76S) B1TC16I iNlTIALCNAttECRlLU I * 

STRUCTl*PE lOrAPM 
1 DEVICE IhTeeEP* 

1 STATUS 

1 DUFFER KAKE APPAYdQt INTEGER , • 

1 lUIEGEPi 

OECLAPE FSCaSEJSCRS lOPARH-STRUCTUPE INITIAUI^. HEX'O*. NULL. Z7U 
DECLAPE 10 FaCCEDUSE K(riKAL(Il> 

REPLACE OPSVS DY ' l“p 
DO CASe D^S'lS. 

/S\C<9U /^PERCENT HACROV 

* 

CALL 10(ft.'DSEKSORSJ. /^ASSEMBLY LAK6UA6E>*/ 

ntn = ONf 

CEAPQCNTj 


SIGNAL GOJUVREADi 
D!0| 

CLOSE ASSORTEDIO, 


/•EVENT VARIABLE*/ 
/•NO-OP*/ 


This program only indicates a few alternatives, there are many other possibilities 
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End Of Chapter Problems 

8A Wnte a HAL/S program that will read, from channel 5, 2 arrays of character strings 
(5 elements per array, maximum 5 characters per string), remove leadmg and trailmg 
blanks from each string, reverse each stnng, and write the results on channel 6 m the 
form 

Column 5 Column 15 


CHAR_ARRli 

CHAR_ARRl2 


CHAR_ARR2j 

CHAR_ARR?2 


CHAR_ARRl5 


CHAR^ARRlj 


8B Wnte a HAL/S program to perform the following task 

Input on channel 5 contains the names of 50 people, each consisting of a first name, 
one blank, and a last name Names are separated by commas, the maximum length 
of any name is 25 characters, and there are no blanks m themput except those fol- 
lowing the last comma in a line (no name is broken across two Imes) The final 
name is not followed by a comma 

4 

The program should read m all 50 names mto an array, and wnte on channel 6 all 
names whose last name begins with ‘S’ 

An example of possible program mput is 

SAMUEL COLERIDGE .CHARLES BAVOELAIRE,EMMY NOETHER, 

WILLIAM SHAKESPEARE, TYCHO BRAHE, DAVID HILBERT, etc. 

SC Wnte a HAL/S program that will read from channel 5 a 1- to 3- digit integer, and 
wnte on channel 6 the Enghsh. equivalent, e g , 


173 ONE HUNDRED SEVENTY-THREE 
0 ^ ZERO 
15 ^ FIFTEEN 


etc 
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9 0 STRUCTURES 

HAL/S structures provide a means of collectmg a group of vanables under a single name 
This grouping capability has a number of uses, one of which is illustrated below Suppose a 
utility function which requires many parameters is defined at the outer level of a program 
and invoked from lower level code as shown below 
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' * I lux 1 ^ ' 

OUTER 

PROGRAM, 

DECLARE SCALAR, 

Gl, G2, 

UTIL- 

FU^CTI□H^A, B, C, 0, EJ VECTOR; 
DECLARE A vector; 

DECLARE SCALAR, 

B, 0, 

DECLARE C IHTEGER, 

E BOO LEAH, 


RETURN A. 

CLOSE UTIL, 

NESTED 

PROCEDURE, 

A PROCEDURE WHICH INVOKES UTIL 

DECLARE RESULT VECTOR, 

DECLARE V VECTOR INITIAL! 0, 1, 01, 
DECLARE SCALAR, 

SI, SE, 

DECLARE C INTEGER INITIALtDS), 

E BOOLEAN INITIALCOFF), 


SI = 61 / 3, 

SE = SIHtGl + G2J, 

RESULT a UTILCV, SI, C, SE, Ei; 


CLOSE NESTED, 


% 


It IS advantageous to keep the actual arguments passed to UTIL 0 e V, SI, S2, etc ) 
declared at the lowest possible level because of the protection afforded by scoping rules, and 
to show that these vanables “belong” with the NESTED code block On the other hand, 
some inefficiency results from passing all five parameters separately The code in the next 
figure shows how structures can be used to reduce the number of UTIL parameters to one 
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outer: 

PROGRAM, 

DECURE SCALAR, 

GI, 62, 

STRUCTURE UTIL_PARM: 

1 V VECTOR, 

1 SI SCALAR, 

1 C INTEGER, 

1 S2 SCALAR, 

1 E BOOLEAN ; 

UTIL: j 

FUHCTIOH(X) vector; 

DECURE X UTIL PAHH-STHUCTURE, 


RETURN X.V; 

CLOSE UTIL, 

NESTEO 

PROKOURE, 

DECLARE RESULT VECTOR; 

DECURE LOCAL UT1L_PAHH-STRUCTURE IMITIAUO, 1, 0, 0, S3, 0, OFFi; 

NOTE TNAT THE TEtIPUTE IS HOT REPEATED 

LOCAL.Sl = G1 / 3, 

LOCAL S2 = SINCGl +621. 


RESULT = OTlLt LOCAL! , 


CLOSE NESTED, 


CLOSE OUTER, 


Several new language constructs are used in this example Fust is tlie statement begm- 
mng with “STRUCTURE UTIL_PARM ” This statement creates a structure template 
named UTIL_PARM which defines the layout of the UTIL_PARM-STRUCTUREs declared 
later In addition to structure declaration and mitialization, the example shows references 
to the components of a structure, structure terminals, such as “LOCAL SI” and an entire 
structure, LOCAL 

The next section describes all of the constructs used m the example, although some of 
the more complex forms are deferred to the end of the chapter 
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9-i DECLARING AND REFERENCING STRUCTURES 

In the statement 

DECLARE LOCAL UT1L_PARM-STRUCTURE IN1TIAL(0.1 ,0,0,83 ,0,OFF), 

the phrase “UTIL_PARM-STRUCTURE” takes the position usually occupied by a data 
type This is actually consistent syntax because X-STRUCTURE, where X is a template 
name, is a data type Hence, a template name with the word STRUCTURE attached by a 
hyphen can be used in most of the constructs from previous chapters which require a data 
type or “type specification” Examples include factored declare statements such as 

DECLARE UTIL_FARM-STRUCTURE, 

LOCAL, 

X, 

Y lNlTlAL(l,2,3,4,5,6,True), 

ZERO CONSTANT(0,0, 0,0,0, 0.OfO, 

and function type specification, as in 

SHAPE FUNCTION(A,B,C,D) UTIL^PARM-STRUCTURE, 

It IS important to note that STRUCTURE by itself is not a data type The type of a 
structure is entirely defined by the layout of its template From this rule, and the descnp- 
tion of parameter passage in chapter seven it follows that when a structure ts passed to a 
procedure or function, the template of the actual argument passed must be identical to the 
template of the formal parameter 

The conditions under which two templates are identical for purposes of data type 
matching (in parameter passage, assignments, etc ) will be discussed in Section 9.2 However, 
the easiest way of assuring that two structures are of the same data type is to use the same 
template m their declarations In the example, the STRUCTURE statement which defines 
the UTIL_PARM template is part of the program level declare group It can be used in the 
declarations of X and LOCAL in nested routines because the scoping rules for structure tem- 
plates are the same as for declared variables Thus, a template defined at the program level is 
global and may be used m declarations anywhere in the program 

In addition to parameter passage, entire structures may be used in assignment statements 
and in the vanous I/p statements For example, a set of ten test cases could be run through 
the UTIL function by executing the following code 
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OUTEft 

program; 

□ecure scalar, 

Gi, ea; 

structure UTIL_PARHS 
1 V VECTOR, 

1 SI SCALAR, 

1 C INTEGER, 

1 SE SCALAR, 

1 E BOOLEAN, 

DECLARE ARG UriL_PARM-STRUCTURE , 
UTIL- 

FUNCTION(X) vector. 

Declare x util_papm-strijctlire. 


return x.v, 

CLOSE util; 

00 FOR temporary I = 1 TO lOJ 
+ 

REA0(5» ARG, 

+ + 

HftITEf6J 'UTIL OF* , ARG, ■ = *, LfTILfARGl, 
End; 

close outer; 


The statement “READ(5) ARG,” is functionally equivalent to 


READ(5) ARGV, ARG SI, ARG C, ARGS2, ARGE, 


In other words, the components of the structure are react in the “natural sequence”, which 
is the order m which they appear in the structure template The components are output in 
this same sequence when ARG appears in a WRITE statement 
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Similarly, given 

DECLARE UTIL^PARM-STRUCTURE, A, B, 
the statement 
A = B 

IS equivalent to the sequence 

AV = BV, 

ASl = BSl, 

AC = BC, 

AS2 = BS2, 

A E = B E, 

Structure components, such as LOCAL V and A SI, follow exactly the same rules as 
Simple variables of the corresponding data type No restrictions whatsoever are imposed on a 
structure component that would not also apply to a simple variable of that type Thus, the 
vector component, V, of a UTIL_PARM-STRUCTURE, A, can be subscripted 

AVSl = AVS2, 

used in a companson, ^ 

DO UNTIL AVS(2 AT 1) = 0„ 
passed to a built-in function, 

ASl = ABVAL(AV), 

read, written, or filed, or used in any other construct in which a vector is allowed Further- 
more, there is no additional runtime overhead (either time or space) involved in referencing 
a component of a structure rather than a simple vanable 

Structure initialization is essentially the same as array initialization The initial list con- 
sists of a value or set of values for each component of the structure, separated by commas 
The CONSTANT attnbute is also acceptable There is no way to wnte a structure literal, but 
the CONSTANT attnbute may be used to obtain the same effect For example, a convenient 
way of setting all of the, components of a structure to zero is 

DECLARE UTIL_PARMS-STRUCTURE, 

A. 

B, 

ZERO CONSTANT(0, 0,0,0, 0,0, Off), 

A = ZERO, 




9-6 Structures 


In addition to assignment statements, parameter passage, and I/O statements, compan- 
son of entire structures is permitted As was the case with arrays, the only compansons that 
can be made between structure operands are equal (=) and not equal (~I=) 

In this seebon we have discussed all of the ways that entire structures can be used in 
executable statements and made the assertion that components of a structure may be used 
in any way that simple vanables of the same types can be used We have discussed declara- 
tion and initialization of structures using the template names as a data type All of the ex- 
amples have used the same template (UTIL_PARM), but the rules for creating templates 
have been omitted and the naming of structure components has only been imphed by exam- 
ple In seebon 9 2 we will clear up these points and show additional examples of the use of 
structures This chapter concludes with the presentabon of two additional attnbutes "Copi- 
ness”, which is analogous to arrayness of other data types, and unqualified structures, which 
are easier to reference but more limited in capability 

9 2 THE STRUCTURE TEMPLATE 

A structure template describes the layout of a structure in terms of the order and data 
types of its components A structure template is created via the STRUCTURE statement 
This statement begins with the word STRUCTURE followed by the name of the template 
being defined and a colon The remainder of the statement is a list of component desenp- 
tions separated by commas Bach component is desenbed by a level number, a name, and a 
data type The statement below creates a template named SUPER_VECTOR which has 
three components 

STRUCTURE SUPER_VECTOR 
1 V VECTOR, 

1 STATUS BOOLEAN, 

3 TMETAG SCALAR. 

The phrase “1 V VECTOR” defines a component named V of type VECTOR at level one 
These level numbers require some explanation, but first we will state the rules about names 
and data types 

1) The name of a structure component may be any valid HAL/S identifier 

2) The names of structure components need not be unique, provided they can be un- 
ambiguously referenced (i e. structures A and B may both have a component named 
X smee they can be distinguished by referenemg A X and B X) 

3) The components of a structure may be of any data type They may be of single or 
double precision and they may be arrayed 

Since SUPER_ VECTOR-STRUCTURE is a data type by the definition in this chapter, 
le three above makes the following template legal 

STRUCTURE STATEVEC 

1 POSITION SUPER_VECTOR-STRUCTURE, 

1 VELOCITY SUPER_VECTOR-STRUCTURE, 

I ACCEL SUPER_VECTOR-STRUCTURE, 
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Given the following structure declaration 

DECLARE STATE STATEVEC-STRUCTURE, 

how are the low-level components referenced'^ The answer follows from the information al- 
ready presented Since the V component of POSITION is named “POSITION V”, the POSI- 
TION V component of STATE may be referenced as “STATE POSITION V” This process 
may be earned to any level Given, 

STRUCTURE S2 

1 STATE STATEVEC-STRUCTURE, 

1 ATT1TUDE_INF0 ARRAY(3) VECTOR DOUBLE, 

DECLARE STATE2 S2-STRUCTURE, 

the components are named 

STATE2 STATE POSITION V. 

STATE2 STATE POSITION STATUS. 


STATE2 STATE ACCEL TIMETAG, 

STATE2 ATTITUDE INFOSCl ), 

and so forth The components listed above are called structure terminals A structure termi- 
nal IS any component of a structure which itself is not a structure* Structure components 
which are also structures are termed structure nodes, this terminology steins from viewing a 
structure as an inverted tree, as shown below 
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In this diagram, rounded boxes are used to represent nodes, or forks in the tree The 
square boxes represent structure terminals which are the leaves of the tree 

In Section 9 1 it was stated that a component of a structure may be used jn any context 
m which a simple vanable of the same type can be used This statement applies to both 
structure terminals and to entire nodes of a structure Since the nodes STATE2 STATE PO- 
SITION and STATE2 STATE ACCEL are of type SUPER_ VECTOR-STRUCTURE, they 
may be read, written, filed, assigned to each other, compared, or passed as parameters to a 
procedure or function which expects a SUPER_VECTOR-STRUCTURE as an argument 
Thus, these components of STATE2 STATE might be manipulated as shown below 
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p 

H 

FP0SRA11, 


STPUCTUPE SUPEP.VSCTOR 


1 V VECTOR ► 

ti 

1 5TA1US EOOLEiH, 

H 

1 TIME FAS SCALAR, 

M 

STFUCTU!1E STATEVEC 

rt 

1 P05ITICS SUFER^VECT0R-ST1?UCTURE, 

ti 

1 ^EL0CITt 5UFER_V£CT0R-STJ?UCTUJ?E» 

H 

1 ACCEL SUPER VecTOR-STRUCTURE , 

n 

QECtAPS state STATEVEC-STRUCTUSE* 

M 

STRUCTL'RE 52 

M 

1 STATE STATEVEC-STRUCTUSE, 

H 

1 ATTITU3E IKFO ARPATi33 VECTOR DOUBLE, 

n 

DECLARE STATES SE-STBUCTURE, 

M 

REPLACE TEST DATA BY "I* j 

M 

DECLARE CrCLE IHTEGER IHmALCOJ) 

11 

DECLARE DELTA.! COHSTArtK 1 / 10 1 ► /kTIHE BETWEEN SAKPLES*^/ 

1 

* 

K 

STATES STATE ACCEL ^ READ_ACCC 171 i 

C 

ASSUME THAT 17 SELECTS THE CORRECT ACCELEROMETER 

E 

4 4- 

n 

CALL II1TEGPAT£< states STATE ACCELl ASSIGDI STATES STATE VELOCITTI, 

E 

♦ ♦ 

H 

CALL KITE GOATEI STATES STATE VELOCITTI ASSIGIK STATEC STATE FOSITIOlO, 

n 

CYCLE = CYCLE + 1* 

z 

4- 

tt 

FILECTCS7 OATA^ CYCLEJ ^ STATES STATE, /^tSAVE FOR POST PROCESSTHS*/ 

n 

IMTECPATE 

tt 

PPCCEOUBEIIHPUTI AS5ICMC OUTPUT). 

H 

DECLARE SUPEP VECTOR-STRUCTURE, 

M 

IIIFUT, OUTPUT. 

H 

IF IHPUT STATUS = FALSE THEM 

H 

00, 

li 

OUTPUT STATUS ~ FALSE. 

rt 

RETUPM, 

K 

zin. 

M 

OUTPUT TIUETAO = THPUT TIUETAG, 

E 


K 

OUTPUT V » OUTPUT V + INPUT V DELTA T, 

n 

CLOSE INTEGRATE, 

rt 

CLOSE P, 
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An alternate way of coding the S2 template used in declanng STATE2 appears m the 
following figure This example should make the use of level numbers clear Level numbers 
provide the capability of creating nodes in a template without referencing other templates 
No change whatsoever would be required to the previous program if this S2 template was 
substituted for the earlier formulation 


H 

p; 

H 

PflOGRAn; 

n 

3TRUCT0PE SUPEP VECTOR; 

n 

1, V VECTOR, 

M 

1 STATUS SCO LEAN, 

n 

1 TIUETAG SCALAR, 

M 

STRUCTU=E S2. 

H 

1 STATE, 

f1 

2 POSITlOH, 

H 

3 V VECTOR, 

n 

3 STATUS BOOLEAN, 

M 

3 TIUETAG SCALAR, 

f1 

2 VELOCITY, 

H 

3 V VECTOR, 

M 

3 STATUS BOOLEAN, 

M 

3 TIMETAS SCALAR, 

H 

2 ACCEL SUPER VECTOR-STRUCTURE, 

M 

1 ATTITUDE INFO ARRAY! 3) VECTOR ODUBLEI 

t1 

CLOSE P, 


By referring back to the tree diagram of the STATE2 structure, it can be seen that the 
level numbers represent the distances between the top of the structure and each component 
Another illustration of this correspondence appears below 

STRUCTURE X Level 

I A, 

2 B INTEGER, 

2 C 

3 D INTEGER, 

3 E INTEGER, 

I F INTEGER, 

In these examples, the structure templates have been indented to show tlie contents of 
each node This indenting is supplied by the compiler based on the level numbers Since the 
HAL/S language is written in free format, the number of blanks coded on source cards is 
irrelevant Hence, the previous example could also be wnttcn as 

STRUCTURE X 1 A, 2 B INTEGER, 2 

C, 3 D INTEGER, 3 E INTEGER, 1 F INTEGER, 

and the same output listing would result 
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Coding strjcture templates m the above form is not recommended, however Properly in- 
dented source code generally makes desk checking and subsequent modification much 
easier 


Exercises 


9 2A Wnte_structure templates for follb’wing trees 


X 



Cl D1 El FI 


where 



Cl, El are 3-vectors, 

D2, F I are 3x3 matrices, 

D2, E2 are arrays of length 5 of 3-vectors, 
All other terminals are scalar 


9 2B 

a) For the following sequence of structure templates and the single declaration below, 
draw the tree for the declared structure TEST_DATA 


STRUCTURE X 
1 A INTEGER. 

1 B, 

2 VI VECTOR, 

2 V2 VECTOR, 

STRUCTURE Y 
1 A, 

2 B integer, 

2 VI VECTOR, 

1 C SCALAR, 

STRUCTURE DATA 
1 L, 

2 M X-STRUCTURE, 

2 N Y-STRUCTURE, 

1 I. 

2 J X-STRUCTURE, 

2 K Y-STRUCTURE, 

DECLARE TEST_DATA DATA-STRUCTURE, 
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b) Write, in the natural sequence, the expressions used to reference each terminal of 
TEST_DATA 

c) Wnte an alternate structure template for DATA that allows the terminals to be ref- 
erenced exactly as in part (b), but does not use structures X and Y 

d) Call the structure template of part (c) DATA_PRIME, and make the following 
declarations 

DECLARE STRUCl DATA-STRUCTURE, 

STRUC2 DATA_PRIME-STRUCTURE, 

Which of these assignments are legal 

1) STRUCl L M A = STRUC2 L M A, 

2) STRUCl = STRUC2. 

3) STRUCl I K = STRUC2 I K. 

4) STRUCl. LM = STRUC2IJ, 

5) STRUC2 L = STRUC2 I. 

9 2C Rewnte the following segment of HAL/S code, using structures to eliminate the DO 
FOR loop How must the procedure PROCESS be changed to allow this’ Be sure the 
data can be read in the same order as before 

DECLARE VEC_ARR ARRAY(5) VECTOR, 

DECLARE T1M_ARR ARRAY(5) SCALAR, 

DO FOR I = 1 TO 5, 

READ(S) VEC_ARRS(I ),TIM_ARR$I, 

END, 

CALL PR0CESS(VEC_ARR,T1M_ARR), 

9 2 1 Template Matching . 

Throughout this chapter, the data type of a structure has been named by referring to the 
template used in its declaration The statement has been made that two structures are of the 
same data type if their templates are identical For the purpose of matching data types, two 
structure templates are identical if and only if the order and data types of all of their com- 
ponents are exactly the same For structure terminals, all of the attnbutes including preci- 
sion and arrayness must match The term “components” used above also includes structure 
nodes, Two nodes are of the same type if and only if their components are of the same data 
types and m the same order 
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This rule can be stated m two different ways 

1) Two structure templates are identical if and only if the order, data types, and 
hierarchical arrangement of their terminals are the same 

2) Two structure templates are identical if the only differences between them are the 
names of terminals and nodes 

Most of the information about structures has already been presented We have seen how 
to declare and reference structures and thetr components, and how to code structure tem- 
plates The use of structures to group data for parameter passage, assignment as a block, and 
the simplification of I/O statements has been illustrated Subsequent sections will add a few 
more capabilities to structure declaration and referencing by building on the basic concepts 
of templates, nodes, terminals, and user-defined data types presented here 

9 3 MULTI-COPIED STRUCTURES 

» 

Multi-copied structures provide a capability similar to arrays of simpler data-types The 
uses of structure copmess are much the same as the uses of arrayness descnbed in chapter 
SIX If several structures are to be processed identically, it is convenient to reference them by 
number within a loop An example of this usage is descnbed below 

The SUPER_VECTOR template from Section 9 1 (repeated below) might be used to 
contain sensed velocity data from an mertial measurement unit Since these devices are 
usually redundant, it is useful to define a mulU-copied SUPER_VECTOR to contain the 
data The following figure shows how such an entity can be declared and referenced 
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EXAMPLE_H: 

PROGRAM. 

5TPUCTURE SUPER VECTOR 
1 V VECTOR, ~ 

1 STATUS BOOLEAN, 

1 TIMETAG scalar, 

declare VEL SUPEP_VECT0R-STRUCTURE(3), 
DECLARE BEST INTEGER, 

DO FOR TEMPORARY I = 1 TO 3, 

+ 

CALL READ^IMUCIl ASSIGN! VEL )5 

I, 

END, 

t 

CALL SELECT_BESTt{VEL}J ASSIGN(BEST) f 
* 

CALL GUlDANCEtVEL ); 

BEST, 


CALL OTHER_SUtVEL ); 

BESTF 
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H 

n 


c 

H 

M 


SEL£CT_BEST 

PflOCEDUREtVI ASSIGHISELECTED); 

DECLARE V SUPER_VECTOR-STBUCTUREt 3 1 , 
selected IMTEGERi 
DECLARE H INTEGER; 

DECLARE MOST RECENT SCALAR INITIAUO) AUTOMATIC; 

DD FOR H ?: 1 TO 3, 

IF V STATUS = OFF THEM 

n; 

REPEAT, 

IF V.TIMETAG > KOST_RECENT THEN 

n; 

00 , 

selected = N, 

MDST_RECEHT = V TIMETAG , 

M> 

end: 

end; 

IF HOST_R£CEHT = 0 THEN 

SELECTED s 1, /WALL EQUALLY BAD*/ 

CLOSE SELECT_BEST, 

GUIDANCE 

PROCEDURE! BEST VELI5 

DECLARE BESf^VEL SUPER^VECTOR-STRUCTUHEj 


CLOSE GUIDANCE; 

OTHER^SH 

PHOCEDUREIVJ, 

DECLARE V SUPER_VECT0R-STRUC7URE, 


CLOSE OTHER_SW, 

READ_It1U‘ 

procedupecunitjjuh: assign! struc:, 
declare unit^kum integer, 

struc SUPER_VECT0R-STRUCTURE! 


CLOSE read_ihu; 
CLOSE exal«>le_n; 
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Several points are illustrated by this example First, a multi-copied structure is created 
simply by appending a copmess specifier to the structure declaration The copiness specifier 
IS a parenthesized integer which immediately follows the word STRUCTURE As with 
VECTOR or ARRAY dimensions, the number of copies may be specified by any anthmetic 
expression which can be computed at compile time" 

The next new construct in the example appears m the statement 

CALL READ_IMU(0 ASSIGN(VELS(I,) ). 

This statement is mtended to obtain the Ith copy of [VEL] from an external device 
VELS(I,) IS a SUPER_VECTOR-STRUCTURE with no copmess, the fact that it is con- 
tained in a multi-copied structure does not by itself impose any restnctions on its use The 
semicolon in the subscnpt separates structure subscripts from the other types ofsubscnpts 
for the same reason that the colon is used to set off array from component subscnpts Struc- 
ture subscnpts may of course be combined with the other types For instance, the second 
component of V within the third copy of VEL can be referenced as VEL V$(3,2) Some of 
the many combinations are illustrated below Given, 

STRUCTURE X 

1 M ARRAY(IO) MATRIX, 

1 I ARRAY(3,2) INTEGER, 

DECLARE BIG X-STRUCTURE(IOO), 

the very first scalar component is 

BIGMSfU 1,1) 

and the last scalar is 

BIG MS(100,10 3,3) 

‘ The first four integers are 

BIGI$(1,I TO 2,^), 

which IS a two-by-two integer array 

BIGMSd,* 1,^) 

is an array of ten 3-vectors composed of the first rows of all the matrices in the first copy of 
BIG 


•There is also an equivalent to ARRAY(*) which will be described later 
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Partitions are also allowed m structure subscnpts, the statement 

BIGS (1 TO 50J = B1GS(51 TO 

would set the first fifty copies of BIG to the values contained in the last fifty 

The data type of BIGS(1 TO 50 J is “multi-copied X-structure” When the structure sub- 
script IS applied to a terminal (e g BIG I), the result is no longer a structure In this case, the 
copmess is converted to aitayness BIG MS(1 TO 50,), behaves like a 50 x lOanay of matri- 
ces Likewise, BIG IS(1 TO 50,1,1) behaves like an ARRAY(50) INTEGER even though all 
of the actual arrayness was subscnpted away With respect to terminals (but not nodes), 
arrayness and copmess are interchangeable 

Returning to the onginal example in which VEL was declared as a three-copied 
SUPER_VECTOR structure, we can see how the conversion to arrayness is used The fol- 
lowing are arrayed statements which functions exactly as descnbed m Section 6 2 

[VEL STATUS] = ON, /’'set all three status booleans to TRUE*/ 

MOST_RECENT = MAX([VEL TIMETAG]), 

AVG_Z_COMPONENT = SUM(VEL V$(*,3))/3, 

AVG_Y_C0MP0NENT = SUM(VELV$(*,2))/3, 

VELV = VECTOR( 1,1,1), 

In many ways, multi-copied structures are like arrays of other data types We have al- 
ready seen that subscnpting is essentially the same except for the use of a semicolon instead 
of a colon, and that terminals of mutti-copied structures can participate in arrayed state- 
ments One copy of a multi-copied structure may be used m any context where a simple 
vanable of the same structure type can be used This rule is also the same as stated previ- 
ously for arrays and their elements This section has also shown that the uses of copmess are 
roughly the same as the uses of arrayness Identical operations on similar data, saving a set 
of structures m a list, and maintaining tables 

Another way m which multi-copied structures resemble arrays is in imtiaiization A 
multi-copied structure can be initialized by listing the initial values for each copy separated 
by commas, as shown 

STRUCTURE MONTH 

I NAMEOF CHARACTER(5), 

1 DAYS INTEGER, 

1 COLD BOOLEAN, 

DECLARE YEAR MONTH-STRUCTURE(12) INITIAL(‘JAN’, 31, TRUE, TEB’, 
28, TRUE, ‘MARCH’, 31, TRUE, ‘APRIL’, 30, FALSE, *), 

Here, the astensk (*) is used to indicate that only part of the structure is to be initialized 
The initial values of copies five through twelve are mdeterminate The use of a multi-copied 
structure for this type of diverse table instead of a set of parallel arrays (shown below) is 
largely a matter of style The referencing of entnes is about equally convenient, but the 
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initial list groups all of the information about ea'ch entry in the case of a structure whereas 
the inforination for arrays must be grouped by type as shown in the alternative below 

declare NAMEOF ARRAY(12) CHARACTER(5) INITIAL(‘JAN\ ‘FEB’, 
‘MARCH’, ‘APRIL’, ♦), 

DECLARE DAYS ARRAY(12) INTEGER IN1TIAL(31, 28, 31, 30. *), 

DECLARE COLD ARRAY(I2) BOOLEAN CONSTANT(TRUE, TRUE, TRUE, 
PAUSE, *), 


Finally, procedures may be wntten to accept a structure with a variable number of 
copies The syntax is the same as for arrays, as shown below, which is a re-work of the 
example before 
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EXAHPLE_K 

PROERAH) 

STRUCTURE SUPER VECTOR 
1 V VECTOR, 

1 STATUS BCOLEAH, 

1 TIHETAS SCAUR I 

DECURE VEL SUPER_VECT0R-STRUCTURE(3); 
DECLARE BEST ZNTECER, 

DO FOR TEHPOPART 1 = 1 TO 3t 

•» 

CALL READ_1HU(I3 ASSIGN [VEL I, 
end; 

+ 

CALL SELECT_BEST( tVEL) I ASSIGUIBESTl • 

+ 

CALL GUIDANCE t VEL ), 

BEST, 


CALL OTHER SHEVEL )5 
BEST! 

SELECT_BEST: 

FROCEDURECV) ASSIGIKSELECTEOI , 

DECUPE V SUPER VECTOR -STRUCTURE!*!; 
DECLARE SELECTED INTEGER, 

+ 

Dp FOR TEMPOPART N = 1 TO S1ZE({V}>, 

IF V.STATUS = OFF THEN 
N! 

REPEAT, 


end; 

CLOSE select_best; 

GUIDANCE 

procedupe(best_velj; 

DECLARE BEST VEL SOPER VECTOR -STRUCTURE, 
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CLOSE GUXDANCE, 

OTHER_SM! 

PfiOCEDUHEtVl, 

DECLARE V SUPER_VECTOR-STROCTUHE; 


CLOSE OWER_SH) 
fiEAO_IHU 

PHOCEDUBEt U1HT_H0H J ASSIGNC STRUC ) i 
DECLARE QNIT^NUn INTEGER , 

STRUC SUPEfi_VECTOR-5TRUCTURE , 


CLOSE READ_IMU; 
CLOSE exakple_n; 


Note, however, that there are a few ways in which multi-copied structures are different 
from arrays 

1) Only one dimension of structure copiness is allowed 

2 ) Arrays may be used as structure components, but multi-copied structures may not 

3) There are no operators Or built-in functions for processing structures 

Exercises 

9 3A Rewrite the solution of problem 9 2C using multi-copied structures 

9 3B Consider the following structure template and declaration 

STRUCTURE A I 

1 B ARRAYC5) INTEGER, 

1 C SCALAR, 

1 D VECTOR(6), 

DECLARE A Al-STRUCTURE(lOO), 


Write a HAL/S expression to reference the following data items, and indicate their type and 
arrayness/copiness 

a) The 25th copy of A 

b) The 3rd component of B from all copies of A 

c) C from the 1 0th through 20th copies of A 

d) D from 75th to 85th copies of A 

e) The 1 st element of D from the first copy of A 




cip 
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9 3C The following information about a company’s 1 00 employees is available 


a) SS number 

b) salary (scalar) 

c) job code 

d) name 


(integer) 

(scalar) 

(integer) 

(character) 


Wnte a HAL/S program to read m all the data from channel 3 and compute the average 
salary Create a structure to hold all of the available information 


9 4 DENSE, RIGID, AND “UNQUALIFIED” 

DENSE and RIGID are minor attnbutes that can be applied to structures and their 
nodes to give the user more control over the layout of structure data m storage The term 
“unqualified” refers to a type of structure in which it is not necessary to qualify each refer- 
ence to a terminal by the name of the containing structure These features may not be fre- 
quently used, but they do provide additional capabilities required by some applications 


9.4 1 The DENSE Attnbute 

The DENSE attnbute instructs the compiler to pack portions of a structure into as little 
storage as possible, generally at the expense of efficient references to the data The DENSE 
attnbute is specified on a structure template or a node of a template as shown in the figure 
below 


M 

P 

M 

PHOSRAMr 

H 

STRUCTURE FLA&S DENSE* 

H 

' 1 B1 BOOLEAN, 

K 

1 B2 BOOLEAN, 

M 

1 NODE INTEGER, 

M 

1 BZ BOOLEAN, 

H 

1 C CHARACTER! S); 

H 

DECLARE STATUS FLAGS-STHUCTURE IMITIALEOFF, OFF, 0, OFF, ' ' 1; 

M 

CLOSE P, 
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The effect of the DENSE attnbute is implementation dependent This is because the 
mapping of HAL/S data types into bits, bytes, words, double words, etc , vanes according to 
the storage formats of individual target machines Most computers have operand alignment 
requirements, for instance requinng that floating point numbers be stored at an address 
which is a multiple of two or four The HAL/S programmer is normally isolated from these 
considerations Since variables are only referenced by their symbolic names, the compiler is 
free to re-arrange declared data to meet the requirements of the machine 

Unless the DENSE attnbute is specified, all data is ALIGNED Ci e placed on appropnate 
storage boundanes) DENSE data is packed whenever there is a reasonably efficient means 
of bypassing the computer’s operand alignment requirements Thus, the only general state- 
ment that can be made about DENSE structures is that they tend to require less storage but 
more time to access than ALIGNED structures 

It turns out, though, that most compilers will pack booleans and bit stnngs in DENSE 
structures In Ahe example above, Bl, B2 and B3 would occupy the same amount of storage 
that would be allocated to a single ALIGNED boolean Note that B3 is placed m the same 
byte, word or other addressable unit as Bl and B2 even though an integer is between them 
in the template Whether or not DENSE is specified, the compiler is free to rearrange the 
order of structure components to mmimize the number of alignment gaps or to optimize 
the addressmg of ceitam components In fact, all declared data is subject to the rearrange- 
ment unless the RIGID attribute is specified {see Section 9 4 2) 

Components of a DENSE structure are referenced in the usual way, some additional re- 
stnctions on their use apply, but where they are allowed, they behave exactly like compo- 
nents of a corresponding ALIGNED structure Thus, statements like 

STATUS Bl = ON, 

STATUS B2, STATUS B3 = FALSE, 

IF STATUS Bl AND STATUS B2 THEN STATUS MODE = 9, 

work as descnbed previously The additional restnctions* imposed on terminals of dense 
structures are 

1) Bit or boolean termmals of a dense structure may not be passed as ASSIGN param- 
eters to procedures 

2) Bit or boolean terminals of dense structures may not be used on the left hand side of 
a FILE statement 

3) Bit or boolean terminals of dense structures may not be used m NAME expressions 
See Chapter 1 3 


•These restnctions avoid the need to pass both an address and starting bit number to Library or USEV- 
supplied routines 
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These are the only restrictions imposed on the DENSE attribute, note that they apply 
only to bit and boolean types and do not apply to entire structures with the DENSE attn- 
bute even if these structures contain bit or boolean terminals Thus, 

[STATUS! = FILE(1,1), 

IS legal, but 

STATUS B1 = FILE( 1.1), 

IS not legal 

9-4 2 The RIGID Attnfaute 

Consider the following structure 

STRUCTURE INTEGER_LIST 
1 SI INTEGER, 

1 D1 INTEGER DOUBLE. 

1 S2 INTEGER. 

1 D2 INTEGER DOUBLE. 

DECLARE IOTA INTEGER_LIST-STRUCTURE, 

On a computer which requires that double precision integers be stored on even ad- 
dresses. the compiler would probably rearrange the data as follows 


word 0 

1 

2 

3 

4 

5 


If the data was kept in the natural sequence, the following would be needed 


word 0 
1 
2 

3 

4 

5 

6 
7 


The shaded areas indicate alignment gaps which are effectively wasted storage These dia- 
grams show how allowing the compiler to re-arrange data can result m a substantial savings 
of memory 


D1 

S2 

D2 
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Occasionally, however, it is necessary to prevent this rearrangement, generally to inter- 
face with external i devices or NONHAL routines The RIGID attribute js>supplied for this 
purpose The second diagram shows the storage assignments that would be made if the 
word RIGID appeared immediately before the colon of the STRUCTURE statement , An 
appropriate use of the RIGID attnbute appears below 

STRUCTURE IMU_DATA RIGID 

I DELTA V ARRAY(3) INTEGER DOUBLE. 

1 ATTITUDE ARRAY(3) -INTEGER, 

I TIME BIT(32), 

1 STAT DENSE, 

2 FI BOOLEAN, 

2 F2 BOOLEAN, 

2 F3 BOOLEAN, 

2 UNUSED BIT(13), 

1 OP_MODE INTEGER, 

DECLARE IMU_DATA IMU-DATA-STRUCTURE, 

CALL ASM_TO„ROUTINE ASSIGN(IMU_DATA), 

In addition to the syntax for declaring a RIGID structure, this example shows the 
DENSE attnbute applied to the STAT node IMU_DATA STAT is both RIGID and 
DENSE The RIGID attribute on the structure’is inherited by all of its nodes If any addi- 
tional nodes were defined below STAT, they would also be RIGID and DENSE, unless the 
ALIGNED keyword was specified The RIGID attnbute is always mhented (cannot be 
turned ofO since there is no “non rigid’* keyword 

The RIGID attnbute allows any data layout to be mapped into HAL/S data types It 
does not impose any restrictions on the use of a structure or its components However, two 
structures cannot be of the same data type unless neither is RIGID or both are. 

In the example above, note that “IMU_DATA” is the name of the template and the 
name of the declared structure This fact makes IMU_DATA an unqualified structure 

9 4 3 Unqualified Structures 

When a structure template is to be used in only one declaration, it is convenient to give 
the structure the same name as the template This permits the name of the structure to be 
omitted when referencing its nodes and terminals Again referring to the structure above, 
the statement, 

DO CASE 1MU_DATA OP_MODE, 

IS legal, but the more convenient form, 

DO CASE OP_MODE, 



IS also permitted 
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Unqualified structures differ from qualified structures (all previous examples) only in 
the form of references to their components It has already been stated that there is no exe- 
cution-time penalty involved in using a structure terminal instead of a simple variable If an 
unquahfied structure is used, no distinction has to be made m the source code either Thus, 
there is no disadvantage to using a ngid unqualified structure to force a collection of van- 
ables to be allocated m a particular sequence, except for possible alignment gaps 

Sometimes it is useful to convert a set of declared vanables to the components of an un- 
quabfied structure, since all of the variables (now structure terminals) can be transferred to 
or from a random-access device in a single FILE statement Variables are also sometimes col- 
lected iji an unqualified structure for documentation purposes since this allows them to be 
discussed as a group under an “official” name which appears in the source code 

Now that structures and their uses have been fully described, only two data types re- 
matn Bit stnngs, which are the general case of booleans, are discussed in Chapter 13, and 
event vanables, which may be thought of as “real-time booleans”, m Chapter 12 The mate- 
nal covered thus far m the text should allow most applications to be coded in HAL/S The 
handling of errors and exceptional conditions will be discussed in the next chapter Then we 
will proceed to put a collecton of programs together and execute them as an integrated sys- 
tem in Chapters 1 1 and 12 Chapter 12 describes how the user may control execution rates 
and inter-process communication and synchronization The book concludes by discussing 
several constructs that are provided for wnting “system programs” such as I/O device dnvers 
and memory management routines 
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Exercises 


9 4A Given 


STRUCTURE A RIGID 
1 B. 

2 C INTEGER, 

2 D VECTOR, 

1 E, 

2 F. 

3 G MATRIX(4,5), 

3 H ARRAY(2,3) INTEGER DOUBLE, 

2 I INTEGER, 

STRUCTURE AF 
1 G MATRIX(4,5), 

1 H ARRAY(2,3) INTEGER DOUBLE, 

STRUCTURE RAF RIGID 
1 G MATRIX(4,5), 

I H ARRAY(2,3) INTEGER DOUBLE, 

DECLARE X A-STRUCTURE, 

Y AF_STRUCTURE, 

Z RAF_STRUCTURE, 

DECLARE INTARR ARRAY(2,3) INTEGER DOUBLE, 


Are the following assignments legaF 

a) X E F = Y, 

b) Z = XEF, 

c) X E F H = Y H+2 H, 

d) YG = ZG, 

e) XBC = YHS(1,1), 


9 4B Consider the following structure template and declaration 


STRUCTURE A 
I B SCALAR, 

1 C INTEGER, 

1 D VECTOR(6), 

DECLARE A A-STRUCTURE(20), 
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What do the following HAL/S subscnpted vanables reference, and what are their types and 
arrayness/copiness 

a) A$(20,) 

b) A$(2 AT 10.) 

c) CS(1,) 

d) DS(4 TO 6,) 

e) D$(*. 4 TO 6) 


End of Chapter Problems 

9A What are some of the capabilities that HAL/S structures give the program that would 
otherwise be unavailable"^ 

9B Wnte a HAL/S program that will read simulated data from 3 redundant sensors on 
channel 5 and compute the middle value of the 3 redundant pieces of data 

Read an acceleration, velocity, attitude (3-vectors), and a scalar time tag.after each 
from each measurement umt First read from unit 1, then 2 and 3 m that order 
Compute the middle value of the three measured values for each quantity (using the 
MIDVAL built-m function or any equivalent code), and store these values with their 
associated time-tags m a structure with the following template 

] BEST_ACCEL, 

2 ACCEL VECTOR, 

2 ACCEL„TIM SCALAR, 

1 BEST_VEL, 

2 VEL VECTOR, 

2'VEL_TIM SCALAR. 

] BEST_ATT1TUDE, 

2 PITCH VECTOR, 

2 PITCH_TIM SCALAR. 
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10 0 ERROR RECOVERY 

Each implementation of the HA.L/S language defines a set of rontune errors These 
errors, or exceptions, include 

1) invahd arguments to built-in functions, such as SQRT (—1), 

2) I/O errors, such.as readmg past the end of a file, 

3) hardware detected errors, such as attempting to divide by zero, 

4) and other conditions which may arise while executmg certain HAL/S statements, 
e g mvertmg a singular matnx and using invahd character subscripts 

By default, when one of these errors occurs, a standard fixup is performed, oix ground- 
based systems, an error message may be generated as well In some cases, the standard fixup 
IS to pnnt diagnostic uiforraation and terminate the program, but usually some innocuous 
value is substituted for the offending expression and execution continues For instance, if 
SQRT(X) IS mvoked with a negative X, the standard fixup is to return SQRT(ABS(X)) The 
standard fixups for all errors defined in a compiler are hsted in the corresponding Users 
Guide 

The standard fixup may not be appropnate for all apphcations Hence, HAL/S provides 
a mechanism that allows user-supphed HAL/S statements to gam control when an error 
occurs In this figure, an ON ERROR statemenfis used to handle an end of file error 



TEST_X 

PROGRAM, , 

REPLACE 10 BY "10", 

DECLARE SCALAR, 

INPUT, OUTPUT, expected; 

DECLARE INTEGER INITIAL(O), 

RIGHT, UROHG, 

ON ERROR 

10 5 

60 TO DOME; 

DO WHILE TRUE, 

REAOCS) INPUT, EXPECTED, 

CALL XtlNPUTl ASSIGN! OUTPUT), 

IF OUTPUT = EXPECTED THEN 
RIGHT = RIGHT + 1, 

ELSE 

KRONE = WROXS + 1! 

END; 

done: 

KRITE(6) ’RESULTS OF TESTING X’, 

KHITEI&J RIGHT, • SAMPLES CORRECT, WRONG. ’ 
X: 

PROCEDURE! 1) ASSIGN! 0); 
declare SCALAR, 

I, 0. 


CLOSE x; 

CLOSE TEST_X; 




< 


I 


I 
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Only one new construct js used in this example 
ON ERRORS (EOF 5) GO TO DONE, 

This IS an executable statement which establishes “GO TO DONE,” as a handler for the end 
of file error When the ON ERROR statement is executed, the default error handlmg (i e 
standard fixup] for the end of file error is replaced, by the GO TO statement supphed The 
function of the ON ERROR statement is to selectively replace the standard error handlers 
under program control 

10 1 THE ON ERROR STATEMENT 

Like the IF statement, ON ERROR is a compound statement (i e a statement which 
contains another statement) It specifies an action to be performed when an error occurs 
This action may be an executable statement, but GO TO is the most commonly used in this 
context In fact, the action portion of an ON ERROR statement should be the most fre- 
quent use of GO TO HAL/S The example above, however, can be re-wntten without a 
GO TO, as m this figure 


M 

rt 

H 

H 

H 

C 

c 

c 

M 

s 

M 

H 

K 

K 

i1 

M 

C 

c 

c 

n 

H 


TEST_X‘ 

FRDSRAM, 

REPLACE 10 BY "10", 

DECLARE rUTEGER IHITrALCO), 
RIGHT, KROUG; 


ON ERROR 

10 5 

do; 

HHITE(6» 'TEST RESULTS FOLLOH'; 

KRITE(63 RIGHT, IIRONG; 

RETURN, 

END, 

DO tffllLE TRUE, 


ENO; 

CLOSE, 


In this example, a DO . END group serves as the action of the ON ERROR statement 
Note that in making this change it was necessary to add a RETURN statement after the 
WRITE statements This is because after the action of an ON ERROR statement has been 
executed, control falls through to the following statement If the RETURN were not coded, 
the DO WHILE TRUE loop would be re-executed after the WRITE statements and the 
error probably would recur, resulting in an infinite loop The next figure illustrates the flow 
of control around an ON ERROR DO END group 
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After an error occurs and a user-specified action is taken, there is no way to resume 
execution at the point that the error was detected, for efficiency reasons, the state of the 
program immediately after the error is not saved, and hence cannot be restored 

The end of file example illustrates one difference between the HAL/S ON ERROR sys- 
tem and the system of alternate returns or “END= ” used in many languages The ON 
ERROR statement was coded outside of the DO WHILE loop, thus the overhead associated 
With defining an end of file handler is paid only once, rather than at each READ statement 

The subsenpt in the ON ERROR statement consists of two numbers separated by a 
colon The left number is an error group, the right number is an error code within that 
group Denotmg errors by botli a group and a code allows entire groups of errors to be 
handled identically (see later) The group and code assignments of a particular error are gen- 
erally the same among vanous implementations of the language, though this is not guaran- 
teed by the HAL/S Language Specification The User’s Manual which corresponds to the 
compiler m use should be consulted before using ON ERROR statements 

The compiler used in produemg the listings for this book follows the same convention as 
several HAL/S compilers All I/O errors are assigned to group 10, and codes 0-9 in this 
group represent end of file errors on channels 0-9 Thus, ON ERRORS (10 5) sets up a 
handler for end of file on channel five Use of the macro 

REPLACE EOF BY “10”. 

IS used to improve readability 

If a program reads data from several devices, an end of file handler can be created for 
each, e g 

ON ERRORS (EOF 4) GO TO NO_MORE_CARDS, 

ON ERRORS (EOF 5) GO TO END_OF_TAPE, 

etc 

It may be more convenient to write one handler for any I/O enror, this can be easily done 
by omitting the error code as m 

ON ERRORS (EOF ) GO TO DONE, 


or 


ON ERRORS (EOF) GO TO DONE. 

These forms both specify “any error code with the given group” Fmally, the statement 
ON ERROR GO TO DONE, 

sets up “GO TO DONE,” as the handler for all errors (including end of file) 
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M 

P- 

M 

PROGRAM, 

M 

DECLARE H MATRIX; 

C 

* 

c 


c 


H 

ON ERROR 

s 

A:a7 

M 

DO, 

E 

¥ 

H 

M = o; 

M 

GO TO u; 

M 

END) 

E 

» »-! 

H 

M = M ; 

H 

L1‘ 

G 


H 

WRITE! 6) M3 

C 

« 

c 


c 


M 

CLOSE p; 


ON ERROR IS the standard means of handling exceptions which anse from operations 
on invalid data For example, a runtime error will result from attempting to mvert a singular 
matnx The standard fixup for this error is to pnnt a message, return the identity matnx, 
and continue execution In the program segment above an ON ERROR statement is used 
to substitute a zero for the identity matrix 

It should be noted that use of this form of the ON ERROR statement replaces the 
standard fixup Hence it prevents the generation of an error message Many implementations 
impose a hmit on the number of errors that may occur before the program is termmated by 
the system When a user-5upphed handler is mvoked, the error is not counted toward this 
Lmit 

Once an ON ERROR statement is executed, the specified error handler remains in effect 
unhl it is deactivated One means of deactivating an error handler is shown beJow 


M 

n 

M 

M 

C 

c 

c 


program: 

OECLARE M MATRIX, 

I integer; 

DO FOR I = I TO 10, 


X 
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E 

M 

M 

M 

E 

t1 

E 

H 

C 

c 

c 

n 

M 

s 

c 

c 

c 

M 


GN ERRUR 

4i£7 


do; 

H = 0. 

GO TO LI, 
EHO; 

M = H > 

U- KRITE16) M, 


END, 

ON ERROR StSTEM, 
it'Z7 


CLOSE p; 


Here, the keyword SYSTEM is used in place of an executable statement as the action of the 
ON ERROR This statement has the effect of restoring the standard fixup for ERRORS 
(4 27) To see why this statement is needed, suppose that additional inverse operations were 
coded later m the program, and this statement was omitted If one of these operations 
caused an error, control would be transferred to the user handler m the middle of a loop 
This would be disastemus, since the compiler assumes that a loop can only be entered by 
execution of the DO statement at its head Thus, if an error handler is coded in a loop, 
it should always be deactivated at exit from the loop In general, it is good practice to de- 
activate error handlers as soon as they are no longer needed 

The statement 

ON ERRORS (X Y) SYSTEM, 

restores the default (system) recovery action for error X Y (group X, code Y) In addition 
to SYSTEM and an executable statement, IGNORE can be used as the action of an ON 
ERROR statement, as ip 

ON ERRORS (4 27) IGNORE, 

This statement mfoims the error recovery system that inverting a singular matnx is not to 
be considered an error, i e that the standard fixup (returning identity) is appropnate and 
that execution should continue without an error message or other notification Dependmg 
on the compiler m use, IGNORE may not be permitted for certain errors 
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When an ON ERROR statement is executed, an error recovery action is established for 
an error or group of errors Three recovery actions are possible 

1) an executable statement to receive control, (in heu of the standard fixup and an 
error message), 

2) SYSTEM, which is the initial state and includes both the standard fixup and an error 
message, and 

3) IGNORE, which requests the standard fixup without an error message 

Any number of recovery actions may be in effect at one tune In a sense, the actions are 
cumulative If the code below were executed, four recovery actions would be in effect 


M p 

n PRQSRAH. 
n DECtAPE SCALAP , 

u A, e, c, 

tl DECLARE IHTcGER. 

M X, Y, Z, 

M OK ERROR 

H 00, 

tl WSITE16) A, B, C. X. Y. Z, 

tl RETORH, 

M EUD. 

tl OK EPROP 

5 10 5 


tl 


REtUPU; 


M 

ON 

EPPOR 

IGNORE, 

S 


10 


H 

OK 

EPPDR 

SYSTEM, 

S 


A 2 



C 

c 

c 


H LA5T_CARD 
H CLOSE P, 


The net effect of these staternents is Any end of file error, except on channel five, will 
be Ignored, and any other error, except 4 2, will cause the WRITE and RETURN statements 
to be executed If error 4 2 occurs, the system action will be taken, and when 10 5 occurs, 
P will close This shows that the handler for error S (10 5) takes precedence over the 
handler for error $ (10 ) The general rule that apphes is When the error specifications in 
several active ON ERROR statements in a single block apply to a particular error, the most 
specific takes precedence Thus, as each of the last three ON ERROR statements in P is 
executed, the number of errors handled by the first and most general one is reduced 

Note that the rule above apphes only to ON ERROR statements m a single block 
(program, procedure, function, etc ) The effect of ON ERROR statements m nested blocks 
will be discussed in the next section Note also that an ON ERROR statement has no effect 
until it IS executed 
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Exercises 

1 0 lA Where does the flow of control go after the action of an ON ERROR statement has 
been executed’ 

10 IB Why IS it good programming practice to deactivate any error handler that is coded 
inside a loop when that loop is exited’ 

10 1C What are the three possible recovery actions in the event of a runtime error’ 

10 ID Wnte the precedence relations for the 3 general forms of subscripting for the ON 
ERROR statement when they occur in the same code block 


10 2 DEACTIVATING ERROR HANDLERS 

An error handler can be deactivated in three ways 

1) by overriding it with a new handler, 

2) by exiting from the containing block, 

3) by using the OFF ERROR statement 

All of these methods are affected by the HAL/S block structure A procedure or function 
cannot make any permanent change to the error environment of its caller This statement is 
a consequence of several rules which will be descnbed with reference to the figure below 
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A" 

PROeRAU, 

ON ERROR ignore; 

1 2 

CAU B, 

CALL c; 

B 

PROCEDURE, 

ON ERROR 

l'£ 

GO TO X, 

CALL C; 

X NRITEt63 ’GOT AN ERROR*. 
CLOSE Bi 
CJ 

PROCEDURE, 

CLOSE C3 
CLOSE a; 
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None of the statements shown can produce an error, however we will discuss what 
would happen if ERRORS {I 2) were caused by an additional statement inserted at vanous 
points 

If the error occurs m block A proper (i e outside of B and C), the IGNORE action will 
be taken, even after B is called and returns This is because any error handler defined m a 
block IS cancelled when that block RETURNS or executes its CLOSE statement When B 
returns, the error environment reverts to that in effect when B was called In this case, the 
IGNORE action is re-instated 

When the ON ERROR statement m B is executed, the IGNORE action is temporarily 
overridden by the GO TO action This action then remams in effect until B returns If the 
error occurs in B, but before the GO TO action is set up, the IGNORE action is taken 
Merely invoking a block does not change the error environment When B calls C, the GO TO 
action IS still in force, if ERRORS (1 2) occurs in block C, control will be passed to the 
label X m block B In effect, C returns to X instead of to the point of invocation When this 
happens, the error environment is restored to that which prevailed before Cwas called, just 
as if C had returned normally 

In the example, block C is also called directly from block A In this case, of course, the 
ON ERROR statement in B has no effect If the error occurs in C when it has been called 
from A, the IGNORE action is taken Thus, we see that the range over which an ON 
ERROR statement is active is not determined by the static block structure, but by the 
actual sequence of CALLs and RETURNS 

The left-hand diagram below shows the static block structure of a program A, which 
IS suitable for describing the scoping rules for variables 



Block Structure 


Call Tree 


“outer” variable can be 
referenced 


“upper” blocks affect error 
environment 


originai. p . gp , 
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The nght-hand diagrarn illustrates the range of ON ERROR statements within A, B and C C 
occurs twice m the diagram, at the ends of different limbs Since all mtervenmg blocks 
between a given block and the top of the tree may be scanned for handlers when an error 
occurs, a block’s error environment depends not only on local ON ERROR statements, but 
those in the calling block, and in the caller’s caller, and so forth Block C may be affected by 
B’s error environment even though it cannot access B’s variables 

Now that the basic- concepts have been illustrated, the rules for deactivation of error 
handlers can be stated precisely 

1) When a code block exits (by RETURN, CLOSE, or due to an error) the error envi- 
ronment is restored to that in effect when the block was entered 

2) An error handler may be replaced by execution of an idetuicaliy subscripted ON 
ERROR statement'//! the same block 

3) An error handler may be temporarily overriden by creatmg another handler in a 
“lesser” block (i e. lower in the call tree) which apphes to the same eirorfs) 

4) An error handler may be completely erased by execution of an identically sub- 
scripted OFF ERROR statement m the same block 

These are the only ways that an error handler may be deactivated Note that there is no 
limit to how far up the call tree the system will search for a handler when an error occurs 
As stated previously, when a particular block contains several handlers that could apply to 
the same error, the most speciElc is selected Other active blocks are searched only if no 
handler at all for this error is found in the current block 

The OFF ERROR statement may be used to cancel the error handler created by a cor- 
responding ON ERROR statement There are only four passible forms 

OFF ERROR, 

OFF ERRORS (nl n2), 

OFF ERRORS (nl ). 

OFF ERRORSnl, 

and of these, the last two are equivalent The effect is simply to cancel an identically sub- 
scnpted ON ERROR statement in the same block If no such ON ERROR statement has 
been executed, the OFF ERROR statement has no effect 

The primary use of the OFF ERROR statement is to re-instate an error handler m the 
calling block which had been overndden by a local ON ERROR statement An example of 
this usage appears in the following figure 
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a: 

procrah; 


ON ERROR 
GO TO X; 
CALL b; 

B- 

PfiDCEDURE, 


OM ERROR ignore; 


OFF ERROR, 


close B, 


CLOSE a; 


It should be noted that the handler cancelled by an OFF ERROR statement must not 
only be in the same block, but it must descnbe exactly the same eiror(s) For instance, the 
sequence 


ON ERRORS 1 IGNORE, 
ON ERRORS2 IGNORE, 
OFF ERROR, 


would leave two handlers active, smce the OFF statement is more general than the ON 
statements To cancel them both would require two statements 

OFF ERRORSd ), 

OFF ERRORS2, 


Likewise, the sequence 

ON ERRORSd ) IGNORE, 

OFF ERRORSd 2), 

does not exclude ERRORS(l 2) from the handler Unless there is an identically (plus or 
minus a trailing colon) subscnpted ON ERROR statement in the same block, OFF ERROR 
will do nothing 
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Exercises 

J 0 2A In what ways is it possible for an error handler to be deactivated’ 

1 0 2B In the following examples of sequences of ON ERROR and OFF ERROR state- 
ments, which handlers are left active after the sequence’ 


a) ON ERRORS 1 IGNORE, 

ON ERRORSd 2) IGNORE, 
ON ERROR$(2 1) IGNORE, 
OFF ERROR, 

OFF ERRORS(l 3) 

b) ON ERRORS 1 IGNORE, 

ON ERROR$(l 1) IGNORE, 
ON ERROR$(2.) IGNORE, 
OFF ERRORS(l-), 

OFF ERRORS(2 1), 


1 0 3 OTHER ERROR CONTROL CONSTRUCTS 

In addition to ON and OFF ERROR, which activate and deactivate error handlers, 
HAL/S provides the SEND ERROR statement, which annunciates an error condition, and 
a pair of built-in functions which allow information to be obtained from the recovery 
system 

The SEND ERROR statement has two uses To simulate the occurrence of system- 
defined errors for testing and other purposes, and to allow the user to define additional 
error types It has only one form 

SEND ERRORSfnI n2), 

where nl and n2 are integers computable at compile-time and in the vahd range of error 
groups and codes specified by the appropnate HAL/S User’s Manual The effect of the 
SEND ERROR statement is merely to tngger whatever handler has been set up for the 
specified error 

When a SEND ERROR is executed, the error environment is searched for an apphcable 
ON ERROR handler If the action is an executable statement, control is passed to it and 
execution continues without an error message If the IGNORE option was specified, execu- 
tion contmues at the statement foUowmg the SEND ERROR, also without a message If 
the action is SYSTEM, or no error handler is found, then an error message is generated, 
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and eitherthe run is terminated, or execution continues at the statement following the SEND 
ERROR The User’s Manual states whether execution wdl continue’* after an error of each 
system-defined type Generally, if the group and code are not system-defined (i e not hsted 
in the User’s Manual) the SYSTEM action allows execution to continue Thus, it is possible 
to wnte a “standard fixup” for a user-defined error, as shown below. 
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LDSIO- 

FUWCTIONtXl SCALAR » 

OECURE X scaur; 

IF X > 0 THEM 

RETURN L051X1 / LOGIlOl; 

ELSE 

no; 

SEHB ERROR ; 

9;i 

RETURN LOG(ABStX)) / LOGUOJ, 

end; 

CLOSE LfiGlO; 


Now, when LOGl 0 is invoked with a negative argument, error 9 1 will result This error 
may be handled by the caUing routine in the usual way, e g 

DECLARE N SCALAR INITIAL(-l), 

ON ERROR$(9 I) DO, 

N = 100, 

END, 

WRITE(6) LOGIO(N), 

This code will wnte log j q(1 00) If the next two statements were 

OFF ERROR$(9 1), 

WR1TE(6) LOG10(-99). 

there would be no active handler for error 9 1, so an error message would be pnnted and 
execution would continue at the second RETURN statement in LOG 10. This RETURN 
statement serves as a “standard fixup” for a negative argument to LOGIO, m this case, 
logjQ(99) would be returned by the function 


♦Some unplementafions may allow an enor to occur (oi be simulated) a given number of times before ter- 
minating Otheis may always continue or always temunate 


ORlGmAJU Pa Gr ro, 

OF POOD XS" 
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SEND ERROR is a relatively expensive statement^ when an error is sent, many machine 
instructions may be needed to search the error environment for an appropriate handler 
Hence, it should be used only to indicate exceptional conditions, or “errors”, not condi- 
tions which are expected to occur frequently The SEND ERROR statement is most 
appropriately used m utility routines (procedures and functions that are invoked from many 
places) to indicate mvalid arguments, and m instances where a “catastrophic” condition is 
detected by very low level code but can only be handled m an outer block, perhaps by some 
sort of controlled restart 

In addition to the ON, OFF, and SEND error statements, HAL/S provides two built-in 
functions, ERRGRP and ERRNUM, which provide information about previous errors 
These functions do not require any arguments, they return integeis which represent the 
group and code, respectively, of the last error that occurred in the process* that invokes 
them If no errors have occurred, they return zero 

These functions are used pnmanly when a number of errors are handled by a smgle 
ON ERROR statement, as illustrated below 

ON ERROR DO, 

WRITE{6) ‘RUN STOPPED DUE TO ERROR’ 

I [ERRGRPI I I I ERRNUM, 

RETURN, 

END, 

One additional form of ON ERROR statement is provided This form allows event 
variables to be manipulated when an error occurs The form of this type of error recovery 
action is described m the language specification Event variables are discussed in Chapter 
Twelve 


Exercises 

10 3A What are the two uses for the HAL/S SEND ERROR construct‘d 

10 3B Say we enter a program block, P, which calls some procedure A, which in turn 
calls procedure B In the code block for B, there is an ON ERROR$(I ) IGNORE 
statement and no other error handlers Now say error (1 3) occurs during the 
execution of the program Does the program need to search code blocks A and P 
for the error handlers for error {1 3) or will it automatically ignore the error because 
the statement ON ERRORS 1 was found m that block'd 


*The tenii process is defined in Chapter II Here it may be taken to mean a program and all of its internal 
blocks 
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lOA 


End of Chapter Problems 

Consider a HAL/S program with the following lexical structure 
P PROGRAM 


OFF ERROR$(l 2), 

ON ERRORS(2 1) IGNORE, 
ON ERRORS(2 1) IGNORE, 
ON ERRORSO ) IGNORE, 

iv) 


OFF ERRORS(2 ), 

© 

CLOSE B, 


CLOSE A, 

@ 

CLOSE P, 


Say the execution of the program 
precedes as follows 


ON ERRORS 1 IGNORE, 
ON ERRORS2 IGNORE, 

© 

A executed 

P calls A 

A executed 

A calls B 

A PROCEDURE, 

B -*■ executed 

® 

B ^ (V) executed 

ON ERROR$(l 2) IGNORE, 

B returns to A 

OFF ERRORSa ). 

A executed 


A (^) executed 

B PROCEDURE, 

A returns to P 


P -y executed 

execution stops 

What happens if the following 
errors occur at these times (i e , 
error message or no error message)'^ 


a) 

ERRORSd 1) 

at 

© 

b) 

ERRORS(3 1) 

at 

© 

c) 

ERRORS(2 I) 

at 

© 

d) 

ERRORS(2 2) 

at 


e) 

ERROR$(l 2) 

at 


f) 

ERRORS(2 1) 

at 

® 

g) 

ERRORS(2 1) 

at 

® 

h) 

ERRORSd 1) 

at 

(m) 

I) 

ERRORSd 2 ) 

at 

® 

J) 

ERRORSd 3) 

at 


k) 

ERRORS(3 3) 

at 


11 

ERRORSd 1) 

at 

@ 
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11 0 STRUCTURING LARGE APPLICATIONS 

In this chapter the discussion of the HAL/S facilities for building a program complex 
consisting of many separately compiled pieces is presented First, we will describe the unit 
of compilation, which has been a PROGRAM m previous chapters but is not restncted to 
this type Then we will discuss means of putting these units together in a way that is suit- 
able for a particular application Fmally, we will introduce the concept of muiti-program- 
ming and discuss some of the methods of safely shanng code and data between programs that 
execute “simultaneously” This discussion will lead into the real-time control statements to 
be presented m chapter twelve 

1 LI THE UNIT OF COMPILATION 

A unit of compilation is a sequence of HAL/S statements which compnse a complete, 
valid input to the compiler It must be either a program, a procedure, a function or a corn- 
pool (common data pool) Programs have already been discussed at length, though no means 
of invoking them has yet been presented This is because programs receive control directly 
from an operating system, not from other HAL/S code 

Procedures and functions can be compiled independently so they can be shared among 
programs, a compool is a block of data that can be shared among separately compiled units 
Thus, programs are the pnmary compilation units while the others provide global code and 
data 

There are two major reasons for dividing a software system into separately compilable 
units Obviously, when several programmers collaborate on a system, it is convenient if they 
can compile their own work independently A more important reason stems from the way 
program units receive control The capabilities of the operating system in use may determine 
the appropnate structure for an application 

Under an operating system which supports the full HAL/S real-time syntax (desenbed in 
chapter 12), many programs may be “simultaneously” active and compete for the use of the 
computer hardware based on a user specified pnonty Provision is made for programs to be 
run cychcly, to wait for given occurrences and to receive control when interrupts occur The 
operating system provides these capabilities for the invocation of PROGRAMS and TASKs 
(collectively called processes) Thus, a software system may be divided into programs to 
implement a desired dynamic (real-time) structure 

Unlike procedures, functions and tasks, programs and compools may not be nested in 
any other blocks 

The followmg figure shows how these blocks might be used m a simple flight apphcation 
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This diagram shows the software divided into three programs, each with internal pro- 
cedures and functions, and a compool and three independently compiled subroutines All 
together, there are seven compilable units which must be compiled m an appropnate se- 
quence and linked together In the remainder of this section we will discuss the rules for 
writing the components of a program complex 


The LIMIT function and the procedures, FILTER and INTERPOLATE, are compiled 
separately so that they can be called from any of the programs Such procedures and func- 
tions are called comsubs (from “common suferoutines”) A comsitb may be coded exactly as 
if it were contained m some program For instance, the LIMIT function might be exactly as 
it appeared m chapter seven 


M 

u 

n 

« 

rt 

M 

n 

M 

H 


Linn 

FlTJCriOMiVALOe, BOUND! SCALAR. 
DtCLAPB SCALAR, 

VALUE, EOU"D, 

IF VALUE ? BOL‘.0 THEH 
PETL=U 6CLI10, 

IF VALUE <; -BOUND THEN 
RETURN -BOUND 5 
RETURN VALUE, 

CLOSE LIHlT, 


Aside from the fact that a comsub is not contained in any block, and thus cannot reference 
outer vanables via home scoping rules, all of the statements about procedures and functions 
made in previous chapters also apply to comsubs 

Some of the consequences of this general statement may not be immediately obvious 
For one, comsubs may have additional procedures and functions nested withm them Scop- 
ing rules apply to blocks contained m a comsub just as they would to blocks contained in a 
program In fact, the only significant difference between an independently compiled proce- 
dure Without parameters and a program is the manner of invocation Programs are never 
CALLed and procedures normally do not receive control directly from the operating sys- 
tem 


It IS also worth noting that the error recovery system does not distinguish between com- 
subs and internal procedures ^and functions If an error occurs in a comsub and no local ON 
ERROR statement applies, the error environment of tlie calling block is searched, whether 
that block is a program, another comsub, or an internal procedure of some program or 
comsub 

Comsubs are also referenced m the same way as corresponding internal blocks There is 
no way to tell by inspection of a CALL statement or function invocation whether the refer- 
enced block IS internal to the compilation unit or external (a comsub) Comsubs may have 
any number of arguments of any type, exactly as described in chapter seven. The vanous 
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rules about matching data types, restnctions on ASSIGN parameters, automatic conversions, 
etc , still apply In order to enforce these rules the compiler needs to know the declared 
types of comsuVs formal parameters This information is communicated via the block tem- 
plate 

Under tnost implementations of the HAL/S compiler, a block template is automatically 
generated whenever a program, comsub, or compool is compiled The block template con- 
tains all the information needed to reference that block from another compilation unit In 
the case of a comsub, this information consists of its name, the sequence and types of its 
formal parameters, and the type of its return value, if any A comsub is made accessible to 
a compilation by including its template For instance, a program which uses the LIMIT com- 
sub IS shown below 

D INCLUDE TEMPLATE LIMIT 
P PROGRAM, 

DECLARE X SCALAR INITIAL(12), 

X = LIMIT(X,10), 

CLOSE P, 

INCLUDE IS a compiler directive, as denoted by the character D in column one It in- 
structs the compiler to merge the template for block LIMIT into the compilation at the 
point of the INCLUDE directive Any number of templates may be so included, the NAVI- 
GATION program might be compiled as 

column 1 
f 

D INCLUDE TEMPLATE GNC_POOL 
D INCLUDE TEMPLATE LIMIT 
D INCLUDE TEMPLATE FILTER 
NAVIGATION PROGRAM. 


CLOSE NAVIGATION, 

Note that these templates are included prior to the program statement This syntax 
emphasizes the fact that the blocks GNC_POOL, LIMIT, and FILTER are external to NAV- 
IGATION The pnnted output from the compiler contains a listing of each template that 
was included The template for LIMIT appears below 

LIMIT EXTERNAL FUNCTION(VALUE,BOUND) SCALAR, 

DECLARE SCALAR, VALUE, BOUND, 

CLOSE LIMIT, 

The template for a comsub consists of the header Ime with the word EXTERNAL inserted, 
the declarations of any formal and assign parameters, and the CLOSE statement These are 
the only portions of a procedure or function block that are relevant outside that block* 


*Scoping rales make other data items irrelevant, and no way of branching into the middle of a block is 
provided 
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The format of a block template is unimportant when a compiler with automatic tem- 
plate generation and the include directive is used These features are present in all current 
compilers, but they are not included in the HAL/S Language Specification and thus are not 
guaranteed to be present in all implementations The format of a template is specified, how- 
ever Hence, if the template cannot be INCLUDED, it'may be hand-coded as .part of the 
source prior to the program statement 

A program may invoke a comsub if it includes the template for that comsub pnor to the 
program statement This mechanism provides for executable code to be shared among sepa- 
rate compilation units 

Programs generally need to share data as well The only way to pass information from 
one program to another is via a compool A compool is a named block of DECLARE, RE- 
PLACE, and STRUCTURE statements, the variables in a compool are accessible to any com- 
pilation unit which INCLUDES the compool’s template 

The diagram at the beginnmg of this section shows how a compool is used to mterface 
the Guidance, Navigation, and Control programs This compool could be coded as shown 
below 


M 

M 

c 

H 

M 

c 

H 

H 

H 


6NC_P00L- 

cohfool; 

FOLLOHIHG tJECUHES ARE NAV TO GUIOAHCE INTERFACES 

DECLARE POSITION VECTOR! 

DECLARE VELOCITY VECTOR, 

FOLLOUINS DECLARES ARE GUIDANCE TO CONTROL CONMANOS 

DECLARE PITCH_C0NHAV0 SCAUR; 

DECLARE POLL COHNAND SCAUR INITIAL(O)? 

CLOSE GKC_POOL, 


As this indicates, a compool is delimited by a block header and a CLOSE statement 
much like the other block types Unlike other HAL/S blocks, however, a compool consists 
only of a DECLARE group, no executable statements or nested blocks are allowed It may 
contain DECLARE and REPLACE statements and structure templates Generally, any 
DECLARE statement which may appear in a program may appear in a compool There are 
only two exceptions, both resultmg from the lack of executable code in a compool No 
AUTOMATIC data is allowed in a compool, and no-label (e g function and NONHAL pro- 
cedure) declarations are allowed m a compool It should be noted from the example that 
static initialization is allowed, and takes the same form as in other blocks 
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Compiling a compool serves two purposes To reserve a block of storage containing any 
specified initial values, and to generate the compool template A compool template contains 
all of the information present in the compool source In fact, if automatic template genera- 
tion IS not available, the template may be constructed from the source merely by inserting 
“EXTERNAL” before “COMPOOL” m the block header Normally, however, only an IN- 
CLUDE directive is needed to make compool variables accessible to another compilation 
unit 

When a program includes a compool template, the variables in that compool may be ref- 
erenced, assigned, and used in any way appropnate to their data types Placing a variable in 
a compool rather than at the program level does not, by itself impose any restnctions on the 
way that vanables may be used by the program This includes references to the vanable 
from nested blocks We will discuss the application of scoping rules to compool variables 
and comsubs in the next section 


Exercises 

1 1 I A What are the major reasons for building a program complex with comsubs and corn- 
pools, as opposed to a single large program‘s 

1 1 IB Say an error occurs in some comsub, and no ON ERROR statement that applies to 
the error is found in the comsub What determines the error handler in this case’ 

1 1 1C a) Since a compool contains no executable statements, why must it be compiled at 
all’ 

b) What IS the purpose of a compool template’ 

11 2 BUILDING A PROGRAM COMPLEX 

From the viewpomt of scoping rules, the templates included in a compilation compnse 
an outermost block in which the main compilation unit Ci e. the program, comsub, or com- 
pool being compiled) is nested 

Chapter seven descnbed the HAL/S seopmg rules m terms of block diagrams like the one 
following From these rules it follows that 

1) The comsub S can be called from anywhere within blocks P and Q 

2) The vanables A and B can be referenced from anywhere in blocks P and Q 

3) The vanable X can be referenced only from block S 

This example illustrates the position of template with regard to the mam compilation 
unit 
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CompJation 


Block Structure for Scoping Rules 


C EXTERNAL COMPOOL, 
DECLARE SCALAR,A,B, 
CLOSE C, 

S EXTERNAL PROCEDURE(X) , 
DECLARE X SCALAR, 

CLOSE S, 

P PROGRAM, 

Q PROCEDURE, 

CLOSE Q, 

CLOSE P, 



From the diagram, one might conclude that A and B can be referenced from block S 
This IS true if and only if the template C is included when S is compiled Thus, the “outer- 
most block” IS not universal, its contents may appear different to each compilation unit, 
depending on which templates are included This mechanism support “pnvate” compools 
and comsubs, as we shall see 

Returning to the example of communicating Guidance, Navigation, and Control pro- 
grams, suppose that the templates included by each of the seven compilation units are as in- 
dicated below 


Compilation Unit 


Type 


Templates Included 


NAVIGATION 

GUIDANCE 

CONTROL 

GNC_POOL 

LIMIT 

FILTER 

INTERPOLATE 


PROGRAM 

PROGRAM 

PROGRAM 

COMPOOL 

FUNCTION 

PROCEDURE 

PROCEDURE 


GNC_POOL, LIMIT, FILTER 
GNC_POOL 

GNC_POOL, FILTER, INTERPOLATE 

NONE 

NONE 

LIMIT 

GNC POOL 


With this structure, the contents of the “outermost block” vary considerably from compila- 
tion to compilation, as shown 


ORlCmAL PAnr n. 

QtSS 
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POSITIOH, VELOCITY 
PITCH CMD, ROLL CMD 


LIMIT 


FILTER ~| 


NAVIGATION 



POSITION* VELOCITY 
PITCH CMO, ROLL C‘1D 


GUIDANCE 


♦indicates the module bemg compiled 


As the previous table imphes, any type of compilation unit may include the template of 
any other compilation unit Thus, comsubs may access compool vanables or call other com- 
subs, compook may include the templates of other compools, for instance to utilize global 
REPLACE statements defining array sizes Program blocks atsohave templates which may be 
included by any type of compilation unit We will see the utility of program templates in 
later sections 

From this discussionut can be seen that access to comsubs and compool vanables is con- 
trolled by the inclusion of templates In building a particular program complex it may be 
desirable to set up managenal rules concermng which modules may access which data and 
subroutines Comsub templates are included one at a tune, but when a compool template is 
included, all o'f the vanables in that compool become accessible If it is desirable to partition 
compool data, either of two approaches may be taken The ACCESS system may be used or 
multiple compools may be created 

ACCESS is a HAL/S keyword Under some versions of the compiler, an externally main- 
tained data base of access-rights information can augment the normal scoping rules to 
further restrict (not expand) the visibility of comsubs and compool data This system is im- 
plementation dependent, somewhat complicated, and will not be discussed further in this 
book However, further details are contained in the Language Specification 

The simplest method of restricting access to compool vanables is via multiple compools 
For instance, the following structure might be a better arrangement of the compool data for 
the example program complex 
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Here, the interfaces between Guidance and Control are m one compool, and the inter- 
faces between Navigation and Guidance are in another The Navigation and Control pro- 
grams would include only one compool each, in this way multiple compools tend to limit 
the possible influences of one compilation unit on another. In this case, no data is shared be- 
tween Navigation and Control 

The Guidance program would have to include the templates for both compools The 
order in which these templates are mcluded is irrelevant All compools are included at the 
same level Thus, the previous diagram of scoping rules while compiling Guidance still holds 
Since ther& is always only one scope level outside of the mam unit of compilation, the 
names of variables m one compool must not duplicate the names of variables m another 
compool if both are mcluded by a single compilation umt 

There are, of course, other considerations in structuring an application as a set of com- 
pilation units For instance, it may be convenient to use only one compool so that all global 
data can be found in a single hstmg or so it will be contiguous in memory for telemetry pur- 
poses The addressing modes of some computers may create an efficiency trade-off between 
the number of compools and their average sizes Finally, in the next section, we will see that 
compools can be eliminated through the use of TASK blocks, this decision involves addi- 
tional trade-offs 

Suppose, however, that the onginal configuration of three programs, one compool, and 
three comsubs, has been chosen In this and the previous section we have described how the 
vanous compilation units are coded The remaining problem is to compile them m the 
appropriate order Smce templates are automatically generated* when each block is com- 
piled, the “lowest level” compilation units must be compiled first Given the table of tem- 
plates included per compilation presented earlier, an appropriate sequence for this program 
complex IS 


*If automatic template generation is not available, the order of comprlation ts irrelevant 
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GNC^POOL, LIMIT, FILTER, INTERPOLATE, GUIDANCE, 

NAVIGATION, CONTROL 

Generally, the necessary order of compilation can be determined by inspection Starting 
with compools, then proceeding to “utility” comsubs, other comsubs, application programs, 
and finally “control” programs is usually adequate However, the following algonthm will 
always produce an acceptable sequence if one exists 

1) Produce'a‘'|ist of templates included by each compilation (like the one given here) 

2) Compile each module which requires no templates (except for those templates al- 
ready generated) 

3) Remove the modules that have been compiled from each list 

4) If not done, repeat step two 

It IS possible that a point will be reached where every module requires at least one template 
If so, then there is no suitable sequence This can happen for three reasons, all of which are 
rare 

1) Recursion If A calls B and B then Calls A, no sequence is appropriate Solution 
Change the structure, recursion will not work anyway 

2) A pair of programs schedule or wait for each other Solution Hand-code one tem- 
plate or re-structure 

3) Trouble with initialized NAME vanables Solution Break the loop of circular refer- 
ences (see Chapter 13) 

These difficulties almost never occur in well designed program complexes 

The constructs we have discussed in this chapter are intended for putting a collection of 
HALjS modules together A means of invoking NONHAL procedures and functions was pre- 
sented m chapter seven If part of a program complex (eg special-purpose hard ware inter- 
faces) must be written m assembly language, a few additional constructs are helpful These 
are 

1) RIGID compools, which are similar in concept to RIGID structures, 

2) EQUATE EXTERNAL statements, which can make HAL/S vanables accessible from 
assembly language, and, 

3) the ability to write comsubs m assembly language A set of macros for this purpose 
IS generally supplied with the compiler system 

More detail on these features may be found in the Language Specification and the appropn- 
ate HAL/S User’s Manual 

Another option in designing a program complex is the use of TASK blocks instead of 
programs The software we liave been discussing could be written as the single compilation 
unit shown in the figure on the next page 
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P 

-»• 

PROGRAHi ' 

JM- 

, OECURE VECTOR. ' 

M. 

POSITION, VELOCITY; 

H' 

OECLARE SCALAR, 

H 

PITCH CtID, ROLL CUD; 


LIMIT* 

M 

FUMCTIOH SCALAR, 

C 

-• 

K 

CLOSE LIMIT; 

M 

FILTER- 

H' 

.procedure; 

C 


H 

CLOSE filter; 

H» 

INTERPOLATE! 

H 

PROCEDURE, 

C 


H 

CLOSE INTERPOLATE, 

H 

GUIDANCE! 

H 

task; 

C 

, -CONTENTS OF GUIDANCE PROGRAM UNMODIFIED 

M 

CLOSE GUIDANCE, 

n 

NAVIGATION! 

H 

task; 

C 

.. 

' M 

’ CLOSE NAVIGATION, 

n 

control: 

« 

task; 

c 


li 

.CLOSE control; 

rt! 

close" p, 


% f 


[ Like .programs, tasks*are code. blocks that receive control directly from the,operating 
system Tasks cannot be CALLed, they are used to implement real-time requirements in'the 
same way as programs In fact, the only distinction between programs and tasks is that tasks 
must always be nested in programs, and may not themselves contain further program or task 
blocks Thus, the only change needed to- convert a program- to a task is in the header state- 
ment, the declare group, executable statements, and any nested procedures and functions 
remain exactly the same 
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HAL/S allows one level of nested real-time processes Tasks within programs Scoping 
rules treat all blocks the same Thus, a task and all of its internal procedures and functions 
may access data declared at the program level 

Task blocks allow any real-time structure to be implemented within a single compilation 
unit In chapter twelve, a set of real-time control statements will be presented These state- 
ments instruct the operating system to start executing a program or task at some rate and 
pnonty, to stop cycling a process, and so forth The use of tasks as well as programs to im- 
plement-a-real-time structure tends to minimize the amount of compool data, and allows re- 
lated processes to be consolidated in a single compilation unit One disadvantage of using 
task blocks is that they can only be SCHEDULEd, CANCELLed, etc , from within the con- 
taining program If a system consists of several programs, each containing tasks, then the 
“controT^ code which activates and de-activates the various processes must be distnbuted 
among the several programs 


Exercises 


1 1 2A Consider the following block structure of a program complex 


DECLARE SCALAR, A, B, 



P PROGRAM, 


F FUNCTION, 

DECLARE INTEGER. A, B , 




P PROCEDURE , 
DECLARE I INTEGER , 










From-which blocks can the scalars A and B be referenced*^ 

1 1 2B In the figure on page 1 1-2, rt is shown that the compool GNC_POOL is not mcluded 
m the compilation of the unit FILTER Why not*^ 
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1 1 2C Why IS It desirable that the names of vanables in a compool be unique with respect 
to the names of vanables in other compools’ 

1 1 2D The text states that a reasonable order for compiling the vanous units for the exam- 
ple on page 1 1-00 is 

GNC_POOL, LIMIT, FILTER, INTERPOLATE, GUIDANCE, 

NAVIGATION, CONTROL 

For each of the following possible orders of compilation, state whether they will 
necessitate the hand coding of one or more templates, and why 

a) GNC_POOL, INTERPOLATE, GUIDANCE, LIMIT, NAVIGATION, FILTER, 
CONTROL 

b) GNC_POOL, INTERPOLATE, LIMIT, CONTROL, FILTER, GUIDANCE, 
NAVIGATION 

c) GNC_POOL, INTERPOLATE, GUIDANCE, LIMIT, FILTER, CONTROL, 
NAVIGATION 

d) NAVIGATION, CONTROL, GUIDANCE, LIMIT, FILTER, INTERPOLATE, 
GNC POOL 


II 3 MULTI-PROGRAMMING CONSIDERATIONS 

We have used the term “process” to refer to either a program or a task, this terminology 
IS used throughout the HAL/S documentation The term multi-processing, however, has 
come to refer to the execution of software on a computer or set of-linked computers which 
can literally execute more than one piece of code at a time, e g programming multiple 
physical processors The term “rnulti-programming” refers to the appearance of this situa- 
tion The use of either actual multiple processors or simulated multiple processors In the 
latter case, the computer’s central processing unit is “time-shared” or allocated to each 
active process for a bnef interval m succession Reallocation of the CPU may result from 
initiation or completion of I/O, expiration of a time limit, or other factors Since it is not 
possible to predict which HAL/S statement will be executing when a “process-swap” 
occurs’^, programs must be designed so that a swap can safely occur at any point 


*In fact, the timing may not be repeatable 


dkiginal page is 
DE £GOR quality 
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HULTI: 

program; 

DECLARE SCALAR, 

A, B, C, 


IF A NOT = 0 iTHEN 

do; 

B = C / A. 


ENO; 

t: 

task; 

A = 0.. 
CLOSE T, 

CLOSE multi; 


Consider the above code Suppose that MULTI receives control and executes the IF 
statement, finding A not equal to zero, then, for some reason, the processor is reallocated 
to task T When* T completes, MULTI will resume where it left off, and divide by zero 
The problem is that two processes share data (viz A) without any protection* from an un- 
timely process-swap If we could guarantee that the' swap would never occur between the 
test for A=0 and the division by A, the problem would be solved This can be done by 
means of the UPDATE block and locked data, as shown below 
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. better: 
phograh; 

declare a scaur LOCKlli; 

DECLARE SCAUR, 

, ’B. C, 


update, 

IF A NOT = 0 THEN 

00, I, 

B = C / A, 
END, 

CLOSE. 

T 

TASK, 

update; 

A = o; 

CLOSE, 

CLOSE T; 

CLOSE better; 
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Three changes have been made m the PETTER program The variable A has been de- 
clared with the attnbute LOCK(l), and both uses of A have been enclosed m UPDATE 
blocks The parenthesized “1” indicates the assignment of A to lock group one The use of 
other lock groups is discussed later in this section 

Data which is used by more than one process should normally be locked Locked data 
can only be referenced from within an update block, the system ensures that only one up- 
date block which uses a given lock group is active at any instant of time Thus, this capabil- 
ity is as good as preventing process swaps over a sequence of statements A swap may occur, 
but the new process will not be permitted to execute an update block that pertains to the 
same lock group An update block allows a process to obtain exclusive access to one or more 
locked variables When an update block finishes, the locked vanables become available to 
other processes, which also must access them via update blocks 

An update block is executed when the sequential flow of control reaches it In this re- 
gard it.behaves like a simple DO END group. However, from the viewpoint of scoping 
rules, an update block is equivalent to any of the other block types, it may even have its 
own DECLARE group. An update block behaves like a procedure with respect to error re- 
covery, except that the “calling” block is defined to be the immediately containing block 
An update block may be nested in a block of any other type (except compool), and may 
contain further procedure or function blocks There are some restrictions on the executable 
statements that may be used in an update block The following are prohibited 

1) I/O statements, 

2) Calls to procedures or invocation of functions, except for those nested m the update 
block, and 

3) Real-time statements except for SET, RESET, and SIGNAL (see chapter twelve) 

These statements are not allowed in update blocks, pnmarily because they potentially take 3 
long time to execute It is desirable to mmimize the time spent m an update block because 
while an update block is executing, other processes may be stalled even if those processes 
are more cnbcal (of a higher pnonty) 

It IS almost always necessary to LOCK data which is used by more than one process The 
compiler does not enforce this rule, and there are cases (e g read only data) in which the 
protection offered by locked data is not required These cases are the exception rather than 
the rule For instance, the GNC_POOL compool from the earlier example should be coded 
as 


GNC„POOL COMPOOL, 

DECLARE POSITION VECTOR LOCK(l), 
DECLARE VELdciTY VECTOR LOCK(l), 
DECLARE PITCH_CMD SCALAR LOCK(2), 
DECLARE ROLL^CMD SCALAR LOCK(2), 
CLOSE GNC_POOL. 
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Here,, two lock groups (I and 2) are used Group 1 is used for the Navigation to Guid- 
ance interface, and group 2 is used for the Guidance to Control interface The selection of 
lock groups IS entirely up to the user, the only constraint imposed by the HAL/S system is 
an implementation-dependent maximum number oflock groups It would be possible to use 
the same group for all locked data, and this may be convenient during initial development 
An appropnate assignment of lock groups, however, can lead to improved throughput This 
IS .because several update blocks can be active simultaneously provided that each uses a dif- 
ferent lock group, or set of groups, with no overlap Hence, the overhead associated with a 
number of process swaps may be avoided Furthermore, the amount of jitter in cyclic proc- 
esses may be reduced, smee the chances of being stalled or suspended due to update block 
conflicts are lessened In our example. Control will never have to wait for Navigation since 
their Update blocks reference variables from different lock groups 

The Guidance program might begm as in the figure below As this code implies, it is 
sometimes preferable to copy a small amount of data (POSITION and VELOCITY) rather 
than extend the update block to include all of the computations involving these vanables 
This mmimizes the impact to other processes while still affording the protection against, for 
mstance, processing a vector that has been only partially updated 
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DECLARE X, Y, Z, OTHERS, 
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VEL2 = VELOCITY, 
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P0S112 = POSITION, 

M 

CLOSE COPY_IHPtrrS, 
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M 

CLOSE GUIDANCE; 




This example also shows a labelled update block The laoel is optional, and is used here 
only for self-documentation 


There is one exception to the general rule that lacked data may only be referenced from 
within an update block A locked variable may be passed as an assign parameter to a proce- 
dure. This does not defeat the protection, however, since the corresponding parameter 
declaration must also specify the LOCK attnbute, thus it in turn can only be referenced 
from within an update block or passed to further procedures 
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The update block and locked data provide a means of safely sharing data among inde- 
pendent real-time processes, a similar mechanism for shared code is provided via EXCLU- 
SIVE procedures and functions This type of protection is specified more simply Just the 
appearance of the word EXCLUSIVE on a procedure or function header makes that block 
accessible to only one process at a time To see how and why this feature is used, consider 
this function 
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MEAN 

FUNCTIOHlAl SCALAR EXCLUSIVE; 

DECLARE A AHRAri*J SCALAR; 

DECLARE TOTAL SCALAR lUITIALtOl AUTOMATIC, 
DO FOR TEMFORART I = 1 TO SIZE! [All, 

TOTAL = TOTAL + A . 

I 

END, 

RETURM TOTAL / SIZE(tA]l, 

CLOSE mean; 


Suppose the MEAN function was not exclusive If two processes invoked it, there could 
be a conflict in the use of TOTAL, even though it is only assigned from within MEAN If 
one process had executed part of the loop when the other invoked MEAN and AUTO- 
MATICally re-initiahzed TOTAL, the first process would get an invalid result Thus, the 
problem with sharing procedures and functions among processes is a sfiared,data conflict on 
the local data declared in the shared block This problem can be avoided by making shared 
code blocks EXCLUSIVE No new construct is needed when an exclusive procedure or func- 
tion IS invoked, but the system wiU prevent multiple simultaneous users of the block by 
stalling the second process that tnes to invoke it Exclusive routines are sometimes used for 
operational reasons having nothing to do with shared data For instance, a procedure to do 
inertial measurement unit (IMU) calibration might be made exclusive simply to avoid the 
risk of calibrating more than one at a time 

Another keyword that can be specified instead of EXCLUSIVE is REENTRANT 
Neither one is the default If a procedure or function is not EXCLUSIVE or REENTRANT 
then It cannot safely be invoked from multiple processes, but no protection mechanism is 
present 

A REENTRANT procedure or function may be executed “simultaneously” by several 
processes That is, if program A is executing a reentrant procedure, R, when it is interrupted 
by program B which also invokes R, when B completes and A resumes, there will be no ad- 
verse affect. 

Simply eoding the keyword REENTRANT is not sufficient to make a block safely “re- 
enterable” The following rules must also be obeyed 

1) Any block invoked by the reentrant block must also be reentrant, and 

2) Any local data must be declared to be AUTOMATIC whether it is initialized or not 




1J~IS Sinicttmng Large Applications 


We have already stated that the difficulty in sharing a code block is really a conflict in 
the use of local data Instde a procedure or function with the REENTRANT attribute, the 
effect of the AUTOMATIC attribute is expanded Each user of a reentrant procedure ac- 
cesses a separate copy of the local variables if they are automatic Thus, any conflict is pre- 
vented Parameters and TEMPORARY data cannot and need not be automatic The MEAN 
function can be made reentrant simply by changmg the EXCLUSIVE keyword to RE- 
ENTRANT The necessary conditions for successful re-entrancy are described more fully 
in the HAL/S Language Specification 


This chapter has defined the unit of compilation, and introduced the idea of a program 
complex, consisting of several real-time processes It has descnbed how global code and data 
can be made accessible to these processes, and how the adverse effects of “simultaneous” 
access can be avoided In chapter twelve, we will descnbe the HAL/S statements for creating 
and controlling these processes and further discuss multi-programmmg concepts and their 
application to aerospace systems 


Exercises 

1 1.3A A bank runs several programs to modify savings and checking accounts in a multi- 
programming environment The procedure MOVE_SAVE_TO_CHECK, used to 
move money from a savings account to a checking account, is shared by all the pro- 
grams, and looks like this 

MOVE_SAVE_TO_CHECK, PROCEDURE(ID, AMOUNT), 


SAVINGSSID = SAVINGSSID-AMOUNT, 

CHECKINGSID = CHECKINGSID+AMOUNT. 

CLOSE, 

SAVINGS and CHECKING are compool vanables shared by all the programs 

a) What potential error is present m this system'' 

b) How can it be fixed'' 

1 1 3B The bank in exercise 1 1 3A awards interest penodically and records each interest 
transaction for later printing on the customer’s statement The shared procedure 
AWARD_INTEREST performs this task 

AWARDJNTEREST PROCEDURE(ID), 

DECLARE INTEREST INTEGER, 
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INTEREST = SAVINGSSID INTEREST^RATE, 
SAVINGSSID = SAVINGSSID+INTEREST, 
CALL LOG_lNTEREST(ID, INTEREST), 


CLOSE, 

a) What potential error is present‘d 

b) How can it be fixed’ 
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12 0 REAL-TIME STATEMENTS 

Most aerospace applications have a set of tuning constraints which comprise a major 
facet of the enbre problem definition Meeting these constraints generally requires interac- 
tions with an operating system 

Real-time operating systems for flight or process control applications can vary in many 
ways Nonetheless, certain capabilities, such as invoking a code block at a specified fre- 
quency, are almost always provided By examinmg several operating systems, it is possible 
to abstract a set of pnmitives (i e conceptual operating system functions) in which the van- 
ous facilities can be expressed Then the real-time requirements of an application can be 
descnbed without referencing any particular operating system The HAL/S statements de- 
scribed in this chapter are such a set of primitives, through which real-time requirements can 
be expressed in a machine-independent manner 

HAL/S suggests the point of view that real-time constraints are an intrinsic part of the 
application, i e that timing is part of the algorithm rather than something to resolve “later” 
As a result, real-time statements are integral to the language, and allow the programmer to 
express the entire algonthm directly and in one place 

Real-time statements isolate the programmer from operating system details in the same 
way that anthmetic expressions isolate the programmer from details of machine instructions 
and data formats A standard syntax for real-time operafang system interactions greatly en- 
hances the portability of application programs In particular, it allows flight programs to be 
simulated on ground-based computers, since the timing interactions are expressed in HAL/S, 
rec-compihng is sufficient to translate the entire algonthm 

The mechanisms for communication among real-time processes were described in 
chapter 11, this chapter will discuss the set of HAL/S statements which control the initia- 
tion, termination and synchronization of processes These statements are all executable, 
each implementation includes some technique outside of the HAL/S language for specifying 
one or more initial processes which can then use the real-time statements to create and con- 
trol additional processes 

The figure on the next page shows the use of SCHEDULE statements to create new 
processes As the syntax implies, these statements create cyclic processes which will receive 
control from the operating system at the specified intervals The intervals may be specified 
by any arithmetic expression m the REPEAT EVERY clause, the units are implementation 
dependent but generally these values are expressed m seconds In any case, the units of time 
values throughout any particular implementation will be consistent Seconds will be 
assumed in the rest of this chapter Hence, the three processes scheduled by STARTUP 
would repeat at the rates of once, six times, and twenty times per second 
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n STARTUP 
H PROGRAM, 

M GUIDANCE t 

M TASK. 

C 

n CLOSE GUIDANCE , 

M NAVIGATION - 
M TASK; 

C 

M CLOSE NAVIGATION. 
n CONTROL. 

11 task; 

C 

(1 CLOSE CONTROL; 

n SCHEDULE NAVIGATION PRI0RITYC60 ) , REPEAT EVERY I 0; 

H SCHEDULE GUIDANCE FHIORITYC 70 1 , REPEAT EVERY 1/6, 
H SCHEDULE CONTROL FRIORITTfSO I , REPEAT EVERY I / £0, 
H CLOSE STARTUP, 


HAL/S does not impose any restnctions on the penods of cyclic processes created in 
this way, however, it may not be practical to provide complete generality in a flight oper- 
ating system Simplifications such as rounding all time values to the nearest millisecond are 
to be expected m flight systems The appropnate HAL/S User’s Manual and any operating 
system documentation should be consulted It has become common practice, however, to 
develop and test HAL/S software on large ground-based computers (host computers)‘before 
executing on flight (target) equipment These ground-based implementations generally do 
not impose any restnctions on real-time statements other than those descnbed m the Lan- 
guage Specification, thus allowing a large range of operating system types to be simulated 
In this chapter, a complete implementation will be assumed, but the reader should not ex- 
pect to find all of these capabilities m any particular flight operating system 


12 1 THE SCHEDULE STATEMENT 

Suppose that the average execution times of the Guidance, Navigation and Control tasks 


are as shown m the table below 



Task 

Rate 

Average Time 

Total Time 

Guidance 

6 

50 ms 

3 sec 

Navigation 

1 

too ms 

1 sec 

Control 

20 

25 ms 

5 sec 



^ ‘ Total Time' = 

9 sec 
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Since these tasks together occupy only 9/ 1 0 of a second per second, it is clear that the speci- 
fied rates are attainable However, it would be extremely difficult to implement this struc- 
ture using CALL and DO CASE statements as was done m chapter seven The difficulty can 
be seen by examining a time-lme of these tasks’ execution 


NAVIGATION 

□ 

ru 

GUIDANCE 

□ □ □ 1 

z] n □ □ 

CONTROL 
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The trouble is that no matter how the initiation of these processes is phased, a time will 
occur when more than one process is due to execute If only CALL statements were used, it 
would be necessary to either tolerate a substantial jitter m the execution frequency of each 
task, or to break each task into many small procedures which would be called in a very com- 
plex sequence 

By the use of SCHEDULE statements, as shown in the example STARTUP, the timing 
conflicts can be automatically resolved As we have already stated, the operating system can 
re-allocate the central processor at any point m the execution of a process, subject to the re- 
strictions resulting from update blocks and exclusive procedures If two ptocesses are due 
simultaneously, the highest priority process receives control The purpose of the pnority 
clause in the SCHEDULE statement is to allow the system to resolve conflicting requests 
for the hardware resources In the example, Guidance becomes ready while Control is ex- 
ecuting about half the time Since its pnonty is less than that of Control, Guidance is stalled 
until Control completes Every time Guidance executes, Control comes due m the middle 
Here again, the pnonties govern the situation, and Guidance is stalled (interrupted) while 
Control runs When Control completes, Guidance resumes at the point of interruption As 
long as the shared data protection features of chapter eleven are used, this system action has 
no impact on the coding of either task, although some overhead is associated with the 
process swap. 

Since Control can interrupt either of the other two processes, the jitter in its penod of 
execution will be very small Aside from the system overhead involved m swapping proc- 
esses, delays in the execution of Control can result only from awaiting the release of locked 
data or an exclusive procedure by one of the other processes Guidance can be delayed by 
the Unavailability of a shared resource or by the execution of Control, Navigation can be in- 
terrupted by either of the others Consequently, Navigation will generally run in very short 
bursts spread out through the entire second 
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The example actually consists of four processes The three tasks and the STARTUP pro- 
gram The priority and other charac tens tics of STARTUP are determined externally, either 
through a SCHEDULE statement in another compilation unit or by default dunng system 
startup. Usually a HAL/S real-time executive will start a single program as a non-cyclic, 
process, this program must then schedule all other programs and tasks The pnonty of the 
STARTUP program affects the sequence in which the tasks are initiated If STARTUP is at 
pnonty fifty, when it schedules Navigation at pnonty sixty. Navigation becomes the highest 
pnonty ready process and therefore receives control immediately STARTUP is stalled until 
Navigation relinguishes the processor This happens when Navigation reaches its CLOSE 
statement, since it was scheduled to run only once per second, it enters an ihter-cycle wait 
and ceases to be a ready process This makes STARTUP again the highest pnonty ready 
process, so it receives control and executes the second SCHEDULE-statement The-same sit- 
uation IS repeated with Guidance and Control 

The effect of these SCHEDULE statements, then, seems very much like a set of CALL 
statements One major difference is that the Guidance, Navigation and Control tasks will 
continue to execute at the specified rates after STARTUP reaches its CLOSE statement, 
even though STARTUP executes only once Furthermore, each HALIS real time process has 
Its own error environment Any error handlers in STARTUP have no effect whatsoever on 
the action taken if an error occurs m one of the tasks Finally, the situation would be dif- 
ferent if STARTUP had a higher priority “ 

With STARTUP at pnonty fifty, the following time-hne descnbes the first few cycles* 


STARTUP 


5 

a 


NAVIGATION 

- 

GUIDANCE 


IZ 

J USD 


CONTROL 

□ □□□ 




That IS, Navigation and Guidance each complete a full execution uninterrupted before the 
higher pnonty task(s) are scheduled This may well simphfy the system If STARTUP was at 
pnonty one hundred, however, the time-lme would be completely different 
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STARTUP 

^ □ 
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NAVIGATION 
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GUIDANCE 
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CONTROL 
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□ 
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In this case, STARTUP executes all three SCHEDULE statements before any other process 
receives control Hence, the first cycle is not substantially different from any other 

When STARTUP reaches its CLOSE statement, it enters the wait state This is similar to 
an mter-cycle wait, but does not result from timing considerations A program, remains 
active as long as any of its tasks are active, due to the possibility of shared data and utility 
routines at the program level It is said to be “waiting for dependent processes” The mem- 
ory allocated to the program cannot be released If the tasks are subsequently cancelled (i e 
cease to cycle), the program completes as well It is neither ready nor waiting, but simply 
done and forgotten In the terminology of the Language Specification, it is no longer “in the 
process queues” 

The minimum form of the SCHEDULE statement contains only a process name and a 
priority, as m 

SCHEDULE STARTUP PRIORITY(IOO), 

If no repetition option is specified, the program or task executes only once The REPEAT 
EVERY specifies cyclic execution with a fixed interval between the beginnings of the 
cycles The REPEAT AFTER option is very similar, but the fixed interval js between the 
end of one cycle and the start of the next, as illustrated in this figure 
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The REPEAT AFTER form specifies the length of the mter-cycle period of waiting If RE- 
PEAT AFTER IS specified, tlie average time between executions is the sum of DT and the 
average execution time whereas it is simply DT m the case of REPEAT EVERY The primary 
advantage of the REPEAT AFTER form is that a cycle overlap error cannot occur If proc- 
ess A in the previous example executes more than DT seconds in a particular cycle, it will 
come due again before it completes This results m a runtime error for which no ON ERROR 
handler can be wntten Process B above can execute for any length of time without an over 
lap, smce the start of the next cycle is delayed until DT after the previous cycle completes 

The pnmary disadvantage of the REPEAT AFTER option is that it may make system 
verification more difficult Use of this option tends to make the time-line of the entire sys- 
tem unrepeatable If the outputs of a control system depend on the sequence m which van- 
ous processes are executed, a huge number of runs may be required to show that no unac- 
ceptable transients are introduced by timing fluctuations On the other hand, if REPEAT 
AFTER IS used for less cntical processes, the entire system may respond better to overload 
conditions 

If REPEAT IS specified without either AFTER or EVERY and a time 

SCHEDULE X PRIORITYCH), REPEAT, 

the process is immediately restarted at the end of each cycle This is equivalent to “,RE- 
PEAT AFTER 0,’*. This option is generally used for processes intended to use “left over” 
time for self-test, etc , and for processes which issue WAIT statements Use of the simple 
REPEAT option is not substantially different from coding an infinite loop around the task 
body and scheduling it as a “one-shot” The effect of the CANCEL statement is different, 
and Under some implementations error recovery may differ as well 

The SCHEDULE statement has several other options in addition to the three REPEAT 
forms These options allow the start of a process to be delayed until a specific condition is 
met, and allow cancellation criteria to be specified at the time a process is scheduled Both 
begin and end conditions and a repetition option may be used m a single SCHEDULE state- 
ment, as shown below 
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CLOSE p; 

schedule P in 5.4 FRI0RITY(4V>, REPEAT EVERT .03 UNTIL RUHTIHE + 100, 
CLOSE x; 
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Thas statement wilf cause the program or task P to be initiated at pnonty 49 five point 
four seconds after the execution of the SCHEDULE statement Subsequently, it will be ex- 
ecuted*^ every 03 seconds for 94 6 seconds and then be terminated 

The IN and UNTIL options allow any arithmetic expression This expression is a time 
value in the same units as in the repeat options, generally seconds The IN option requires an 
interval of time whereas UNTIL expects an absolute time This is the same as the normal 
English usage of these words Since the RUNTIME function returns the current value of the 
system clock, ‘TN 5 4” is equivalent to “AT RUNTlME+5 4”, a form which is also accept- 
able to the compiler 

All of the anthmetic expressions in a SCHEDULE statement are evaluated only once, 
when the statement itself is executed Subsequent changes to the variables used in these ex- 
pressions do not affect the scheduled process 

The various scheduling options must be specified in the correct sequence, and only one 
of a given type is allowed in a single statement The sequence of phrases in a SCHEDULE 
statement is 

1) SCHEDULE and, a process name, 

2) An optional begin condition IN, AT or ON, 

3) A pnonty, 

4) An optional REPEAT clause, 

5) An optional end condition UNTIL or WHILE 

The ON and WHILE conditions reference event vanables, which will be descnbed in Section 
! 2 2 First a few special cases of the time options need mention 

Normally, the IN or AT time used m a schedule statement is in the future If the speci- 
fied time has already passed, the process is readied immediately There is one exception If 
AT IS used with the REPEAT EVERY option and the time has already passed, phased sched- 
uling IS performed The first execution of the process occurs at the time given by the sum of 
the “AT** time and the period (REPEAT EVERY delta) of the process This allows a “syn- 
chronous” real-time structure, which is further described in the Language Specification 
Phased scheduling tends to minimize the number of processes that are ready at any one 
time 

Normally, the UNTIL time specified is in the future If it is already passed, then the 
SCHEDULE statement has no effect The UNTIL clause can never stop a process m mid- 
execution, If the UNTIL time arrives while the process is executing, it is allowed to finish its 
current cycle The UNTIL and WHILE clauses can only stop a process before its first execu- 
tion or dunng an mter-cycle wait When the end condition specified in a SCHEDULE state- 
ment is satisfied, the process is CANCELIed rather than TERMINATEd, a distinction which 
will be explained in Section 12 3 


""Assuming that its priority is sufficient to obtain necessary resources 
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Exercises 

12 1 A Draw a time-lme for one second’s execution of the processes scheduled below As- 
sume that each process executes for 80 ms per cycle 

SCHEDULE A PRIORITY(IOO), REPEAT EVERY 1/5, 

SCHEDULE B PRIORITY(99), REPEAT EVERY 1/3, 

SCHEDULE -C PRIORITY(98), REPEAT EVERY 1/2, 

12 IB Draw a time-hne for the processes in exercise 12 1 A, but with all occurrences of 
EVERY changed to AFTER 

12 1C Given two tasks, X and Y, both of which use one half second per iteration, wnte 
schedule statements that will run X continuously for two seconds, then alternate X 
and Y for two seconds, and then run Y half the time for two more seconds Use only 
two schedule statements 


12 2 EVENT VARIABLES 

The three forms of begin-condition in a SCHEDULE statement are 

IN “anthmetic expression”, 

AT “anthmetic expression”, and 
ON “event expression” 

Two of these forms descnbe a begin-condition in terms of time, the third form, ON, lets 
scheduling depend on conditions or occurrences which do not happen at a predetermined 
time Suppose, for example, that the Guidance, Navigation and Control tasks of the previous 
example are used dunng launch of a spacecraft, but when orbit is achieved. Guidance and 
Control are to be replaced with another task, Freefall If the~time at which orbit will be 
reached is known m advance, this can be done with the AT and UNTIL clauses already pre- 
sented Otherwise, it is appropnate to declare an event vanabie to correspond to this occur- 
rence as in 

DECLARE ORBIT EVENT, 

Then the desired transition can be specified in the SCHEDULE statements as shown m the 
next example When an event variable is signalled, as in 

SIGNAL ORBIT,, 

all active.event expressions which reference that event are evaluated In this case three active 
event expressions reference ORBIT When the SIGNAL statement causes ORBIT to become 
TRUE, these expressions are all satisfied Guidance and Control are cancelled via the UNTIL 
clauses, and Freefall is started via the ON clause 

An active event expression is a boolean combination of event variables-used-in a'real- 
time statement which has not yet been satisfied Event expressions are formed in the same 
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way as boolean expressions using the AND, OR, and NOT operators However, all variables 
m an event expression must be events In the simplest case, an event expression consists of a 
single event vanable, e g “ORBIT” in the SCHEDULE statements above A boolcantcom- 
bmation of event vanables is only considered an eventiexpression when it is used in one of 
the real-time statements An active event expression is one that has never evaluated to 
TRUE since the containing real-time statement was executed Once ORBIT is signalled, the 
event expressions in the SCHEDULE statements are no longer active Signalling ORBIT 
again will have no effect unless additional real-time statements which reference it-are exe- 
cuted 
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STARTUP 

PROSRAm 

DECLARE ORBIT EVEHTi 
6UIDAKCE 
TASK, 


CLOSE guidakce; 

HAVIGATIOm 

TASKS 


CLOSE HAVIGATION, 

CONTROL - 

TASK, 


CLOSE cohtrol; 

FREEFALL 

TASK, 


CLOSE FREEFALL, 

SCHEDULE HAVIGATION PRIORITYIEO ) , REPEAT EVERY,! 05 
SCHEDULE GUIDANCE PRICRITY17CI 3 , REPEAT EVERY J. / 6 UNTIL ORBIT? 
SCHEDULE CONTROL PRI0RITY180 3 , REPEAT EVERY 1/20 UNTIL ORBIT? 
SCHEDULE FREEFALL OH ORBIT PRIORITY! 75 1, REPEAT EVERY 1/10? 
CLOSE STARTUP, 


When an event expression is used in the UNTIL or WHILE clause of a SCHEDULE state- 
ment. it can cause cancellation of a process When used in the ON clause of a SCHEDULE 
statement or in a WAIT statement, it can cause a process to be readied or stalled "Event ex- 
pressions are used only in SCHEDULE and WAIT statements, and always serve as a condi- 
tion under which the state of some process is to be changed 

• , r. 

There are three types of event vanables Latched and unlatched declared events, and 
process events All events have only two states, ON and OFF, the distinction between 
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latched and unlatched events is that an unlatched event does not retain its state. ORBIT is 
an unlatched event since the LATCHED keyword was not specified in its declaration It is 
initially OFF or FALSE When the SIGNAL statement is executed it becomes momentanly 
TRUE, just long enough for all active event expressions which reference it to be evaluated 
SIGNAL IS the only statement which can affect the value of an unlatched event 

As stated above, an event expression can be a boolean combination of event vanables 
Since an unlatched event is only true during the execution of a SIGNAL statement, and 
only-one event can be signalled at a time, the logical conjunction (A & B) of two unlatched 
events will never be satisfied This is one reason for using LATCHED events, as illustrated 
below 
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program; 

DECLARE ORBIT EVEMT LATCHED IlllTIALCFALSE); 

DECLARE £KSINE_OF? EVEMT LATCHED INITIALCFALSEJ; 
eUIDAKCEs 
TASK, 

CLOSE, 

SCHEDULE GUIDANCE PRIORITYf TD ) , REPEAT EVERT 1/6 W7IL ORBIT AND ENGINE OFF, 
CLOSE p, , - 


Here, Guidance will continue to cycle until both ORBIT and ENGINE_OFF are true at the 
same time This can happen in several ways The sequence 

SET ORBIT, 

SET ENG1NE_0FF, 

will cause Guidance to be cancelled When a latched event vanable is SET it remains true un- 
til it IS RESET A latched event may also be SIGNALled In this case, the state of the event 
is momentanly inverted for the durahon of the SIGNAL statement, just asm an unlatched 
event Thus, 

SET ORBIT, 

SIGNAL ENGINE_OFF, 

will also cause Guidance to be cancelled, as will 

SET ENGlNE_OFF, 

SIGNAL ORBIT, 


However, if one event is first signalled and then the other set, there will be no time at which 
both are true, and Guidance will continue The advantages of using unlatched events will be- 
come dearer when the WAIT statement is introduced 
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, The third type of event is a process event These events are not declared by the program- 
mer, but automatically defined to correspond to the state of each program or task The 
process.event has the same name as the program or task, and is true from the time the proc- 
ess IS scheduled until it completes its last cycle The process event of a cyclic process re- 
mains true during^ the mter-cycle wait, and dunng any other stall or wait state Process 
events cannot be SET, RESET or SIGNALled, they simply reflect the state of the process of 
the, same name ^ , 

Process events can be used to solve a problem in the Guidance and Control to FREE- 
FALL transition of the previous example Since a process cancelled via the UNTIL clause 
of its SCHEDULE statement is allowed to finish its current cycle, FREEFALL will start 
before the other tasks have finished if they are active at the time the event expression 
becomes-true This difficulty is corrected in the folloiving code 


H 

« 

M 

M 

M 

c 

m' 

M 

c 

H 

M 

t1 

C 

H 

H 

H 

C 

H 

H 

K 

M 

M 

h 


startup 

PROGRAM, 

DECLARE ORBIT EVEHT LATCHED; 
eUlOAKCE! 

TASK, 


CLOSE GUIDANCE; 

HAVIGATIOH 

TASK, 


CLOSE HAVIGATIOH, 

CONTROL- 

TASK, 


CLOSE control; 

FREEFALL? 

TASK; 


CLOSE FREEFALL; 

SCHEDULE NAVIGATION PRIOR 1TY( 60 J, REPEAT EVERY 1,0; 

SCHEDULE GUIDANCE PRIORITY; 70 ) , REPEAT EVERY 1/6 UNTIL ORBIT,* 
SCHEDULE CONTROL PRIOR1TYC80) , REPEAT EVERY 1/20 UNTIL ORBIT, 
SCHEDULE FREEFALL ON ORBIT PRIORITY; 75 1 , REPEAT EVERY I / 10, 
CLOSE STARTUP, ■ 


The FREEFALL process is initiated when ORBIT is true and both other tasks have com- 
pleted their last cycles In this case, ORBIT must be a latched event and it should be SET 
rather than SIGNALled 

The effect ‘of SET, RESET and SIGNAL on latched and unlatched events is summanzed 
m the table on the next page As shown SET and RESET leave a latched event in the TRUE 
or FALSE states, respectively When a latched event is SIGNALLed, its state is momentarily 
inverted Unlatched events are always FALSE, except when SIGNAL makes them momen- 
tanly TRUE 
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Set 

Reset 

Signal 

unlatched event 

illegal 

illegal 

Take all event actions 
depending on TRUE 
state of <event var> 

latched 

event 

old 

value 

IS 

FALSE 

1 Set event state 
to TRUE 

2 Take all event 
actions depending 
on TRUE state of 
<event var> 

no action 

Take all event actions 
depending on TRUE 
state of <event var> 

latched 

event 

old 

value 

IS 

TRUE 

no action 

1 Set event state 
to FALSE 

2 Take all event 
actions depending 
on FALSE state 
of <event var> 

Take all event actions 
depending on FALSE 
state of <event var> 


Events can also be tested in non-real-time statements, e g 
IF ORBIT THEN DO, 

Booleans and events may be freely mixed in boolean expressions However, when used m 
any statement other than SCHEDULE or WAIT, an unlatched event is always false 

The SCHEDULE statements allow begin and end conditions to be specified in terms of 
either time or event expressions, but the repetition option can only be specified in terms of 
a constant interval of time The WAIT statement allows a piece of code to execute at irregu- 
lar intervals 

Suppose a process is required to execute whenever ORBIT is false and ENGINE_OFF is 
true The schedule statement can be used to initiate a process the first time this combination 
is true, as in 

SCHEDULE RE_IGN1TE ON NOT ORBIT 
AND ENGINE_OFF PRIORITY(999), 

A convenient means of allowing this process to execute every time the event expression is 
true IS shown on the next page 
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M 

H 

H 

H 

M 

M 

M 

t1 

h 

c 

c 

c 

M 

M 

H 


P- 

PRO SRAM, 

DECLARE EVENT* 

ENSINg_OFFi 
ORBIT latched; 

SCHEDULE RE_1CHITE FaiCRITY(999>; 
RE IGNITE 
TASK, 

DO WHILE TRUE, 

WAIT FOR ENGIHE_OFF S -ORBIT; 


END. 

CLOSE Re_lGHlTE; 
CLOSE p;” 


When the WAIT statement is e:secuted, if the event expression is true, execution continues 
at the next statement If the event expression is false when the WAIT statement is executed, 
the process is stailed until the expression becomes true as a result of event variable changes 
by other processes If the event expression in a WAIT statement is not immediately satisfied, 
it IS put into tlie pool of active event expressions, the process containing the WAIT state- 
ment IS stalled (taken out of the READY state) and the highest pnonty ready process re- 
ceives control The process issuing the WAIT can only continue when the specified condi- 
tion IS satisfied 

Suppose that ORBIT and ENGINE_OFF are both latched events If they are SET and 
RESET from some process other than RE„IGNITE, it is possible that RE_IGN1TE will exe- 
cute too many times Since jt is of such a high pnonty, RE_IGNITE may finish processing 
and re-execute the WAIT statement before the other process has a chance to RESET 
ENGINE_OFF In fact, if RE_IGNITE js the highest pnonty process and contains no other 
WAIT statement, it will continue to loop to the exclusion of every other process If the RE- 
SET statement can be placed in RE_IGNITE right after the WAIT statement the problem is 
solved, but the situation could be avoided altogether by using a SIGNAL statement instead 
of SET Since SIGNAL leaves an event m the true state just long enough for all active event 
expressions to be evaluated, there is no possibility that RE_IGN1TE will re-issue the WAIT 
statement while the event is still true The SIGNAL statement is generally used when an 
event is expected to change its state repeatedly, as there is no need to RESET* it in prepara- 
tion for the next use. Note, however, that if the process which is^to wait for the event has 
not already executed its WAIT statement, the SIGNAL has no effect 


♦Signal momentarily inverts the state of a latched event If a process warts for the false state, SIGNAL 
avoids the need to SET the event before the next cycle 


page is 
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Consider the two communicating processes below 


M 

n 

M 

ft 

H 

M 

n 

n 

« 

H 

n 

M 


PR0GRAH7 < I 

DECLARE DO.SOflETKIME EVENT. 

DECLARE DONE EVENT UTCHEQ INITIALlOFF); 
SCHEDULE T PRICRI7YC50J; 

SIGNAL D0_S0METH1NG; 

WAIT FOR DONE, ‘ 

T 

task; 

WAIT FOR DO SOMETHING; ' 

SET done; 

CLOSE T; 

CLOSE P, 


In this example, if the pnonty of P is greater than 50, neither process will ever complete If 
the pnonty of P is less than 50, T will execute its WAIT statement before DO^^SOME- 
THING IS signalled, and both processes will complete If P is the higher pnonty process, it 
must pause before signallmg DO^SOMETHING to give T a chance to execute its WAIT 
statement This could be done by adding 

WAIT 1, 

just before the SIGNAL statement 


Exercises 


12 2A Why does the SCHEDULE statement have both AT and ON clauses'^ 
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12 2B In the program segment below, at which of the points A-D is the event expression Q 
active’ 


DECLARE Q EVENT LATCHED INITIAL(OFF), 


A 


SCHEDULE TASKl ON Q PRIORITY(57), 


B 


SIGNAL Q, 


C 


SET Q, 


D 


12 2C Let X be a latched event which is initially OFF How is SIGNAL X, different from 
the sequence SET X, RESET X,’ 

12 2D Re-do problem 12 1C with the two transitions based on events assume that un- 
latched events, tranl and tran2 are signalled at appropriate times by another process 
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12 2E Is a.Iatched or unlatched event more appropnate in each of the following situations 

a) As the single operand of an ON clause 

b) As part of a complex event expression 

c) In a boolean expression 

d) In the RESET statement 

e) In a WAIT statement inside a loop 

12 2F Wnte code that will cause the state of one event vanable, COMPL, to always be the 
inverse of another event, MASTER, which is set and reset by some other code Do 
not examine the state of MASTER more often than necessary 

12 3 OTHER REAL-TIME STATEMENTS 

The SCHEDULE statement creates a process of some pnonty and possibly with some 
repetition rate Begin and end conditions can be specified in terms of either time or event 
variables These event vanables may be SET, RESET and SIGNALled by other processes 
The WAIT statement allows a process to voluntarily release control pending some future 
condition This condition, like those in the SCHEDULE statement, may be either a combin- 
ation of event vanables or the passage of tirne- 

In addition to the time option of the WAIT statement, this section presents the CAN- 
CEL and TERMINATE statements, which allow a process to discontinue itself or some 
other process, and the UPDATE PRIORITY statement, which is used to modify the pnonty 
of a process which has already been scheduled 

The WAIT statement has three forms 

WAIT FOR “event expression”, 

WAIT “delta time”, and 
WAIT UNTIL “time”. 

The effect of the statement is the same m all cases If the specified condition is already true, 
execution continues, otherwise, the process is stalled until the condition becomes true 

As,m the SCHEDULE statement, the expressions “delta time” and “tune” may be any 
arithmetic expression, both are m the same units as tune values in other real-time state- 
ments The two forms distinguish between a particular time, and an interval of time, which 
is,the same distinction as bptween the IN and AT options o(thc SCHEDULE statement As 
before, , ' ' 

WAIT 1, 

is equivalent to 


WAIT UNTIL RUNTIME + 1, 
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These forms of the WAIT statement ate generally used in “sequencing” applications, form- 
stance to fire a vehicle control jet for a given duration or to wait between commands to 
some slow moving mechanical device They are also useful in testing, to generate a scenano 
of Simulated inputs as a function of time 

Note that the arithmetic expressions in the fime-onented WAIT statements are evaluated 
Only once, when the WAIT statement is executed The expression “RUNTIME + i” does 
not keep sliding into the future, but is converted to a scalar value when the WAIT statement 
IS executed It is only event expressions that are repeatedly evaluated by the system 


A further example of the WAIT statement, is shown below Here, the acceleration 
of a vehicle is controlled to get from HERE to THERE in minimum time by accelerat- 
ing halfway and deaccelerating halfway 'Steenng is ignored, as is any initial velocity 


M 

P- 

n 

PROSBAH, 

M 

DECLARE VECTOR, 

M 

HERE, THERE? 

n 

DECLARE HAX_THRUST CONSTANT! 123« 1 , 

h 

VEH HASS C0NSTANTt5678), 

M 

DECLARE SCALAR, 

M 

A, S, T5 

H 

DECLARE eOOLEAN, 

M 

ACC CMD, DECC ChD; 

M 

A = MAX THRUST / VEH_nASS, 

E 

- 

H 

S = ABVALtHERE - THERE) / 25 

U 

T = SQRT(2 A S), 

Z 


H 

ACC CMO = ON, 

n 

WAIT t; 

E 


11 

ACC CUD = off; 

£ 

. 

H 

DECC_CMD = ON, 

H 

WAIT t; 

E 


M 

DECC CHD = OFF, 

M 

CLOSE P, 


In this example, “WAIT T,” introduces a delay of T seconds between setting ACC_CMD 
on, and back off 

The WAIT statemenl^ temporarily deactivates a process, a process can also be perma- 
nently deactivated A non-cyclic process (no REPEAT clause in the SCHEDULE statement) 
terminates by executing its CLOSE statement, by causing a fatal runtime enor, or as a result 
of the TERMINATE statement A cyclic process can cease executing as a result of the 
WHILE Or UNTIL clause used when it was scheduled, the occurrence of a fatal error, or the 
execution of a CANCEL or TERMINATE statement 

The CANCEL and TERMINATE statements are similar m form, each consisting of a 
keyword (CANCEL or TERMINATE) followed by a list of process names, for example 

cancel GUIDANCE, 

TERMINATE STARTUP, 

CANCEL NAVIGATION, CONTROL, P, T, 





12-lS Real-Time State mentt 


The TERMINATE statement causes immediate, abrupt cessation of the listed processes 
Since it may stop a process at any point in its execution, its use is strongly discouraged The 
HAL/S Language Specification imposes additional rules on the use of TERMINATE The 
only use of TERMINATE which is generally considered acceptable is 

TERMINATE, 

When-no lisLof processes4S*supptied,„self-temiinatign is implied This form of the TERMI- 
NATE statement can serve as a “super return” statement at the PROGRAM or TASK level 
Since the process “knows” its own state, this form is relatively safe When other processes 
are terminated, it is important to consider all possible points at which they might be exe- 
cuting to ensure safety 

The CANCEL statement allows an orderly shut-down of the specified processes Like 
the WHILE and UNTIL clauses of the SCHEDULE statement, CANCEL can only stop a 
process before its first cycle or during the tnter-cycle wait This allows processes to be 
stopped without the nsk of leaving, partially updated results 

Since a cancelled process is allowed to finish its current cycle, the CANCEL statement 
may not have immediate effect Process events can be used to key on the completion of the 
last cycle before scheduling a “replacement” process, as shown below 

CANCEL X, Y, Z, 

WAIT FOR nx & nY & nz, 

SCHEDULE XYZ_NBW PRIORITY(IO), REPEAT, 


Exercises 

12 3A Surround the statement “WRITE(6) RUNTIME,” with other statements so that the 
values 1/10, 1/8, 1/6, 1/4, 1/2, and 1 will be sent to channel 6 Use no other I/O 
statements Do not worry about numenc accuracy 

1 2 3B Given 

P PROGRAM, 

DO WHILE TRUE, 

/'•'something”/ 

END, 

CLOSE, 

SCHEDULE P PRIORITY(IOO), 

What does “CANCEL P,” do” How should this be done‘s 
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End of Chapter Problems 

Part of the specification of the flight software for the XYZ aircraft might read as 
follows 


Category 

Rate 

Functions 

A 

Ra 

input processing 
elevon commands 
telemetry 

B 

1/2 Ra 

rudder commands 
guidance 

C 

1/4 Ra 

flight control gams 

D 

1/8 

navigation display 
updates 


The software functions are divided into four categones as shown The category 
A software is to be executed at the highest possible rate consistent with the through- 
put of the machme and the total workload The category B software shall execute 
one-half as frequently as category A, the rate of category C shall be half that of 
category B, and the rate of category D shall be one-half that of category C (i e one- 
eighth the rate of category A) ” 

12A Implement the above example via the real-time statements Explain your choice 
of pnonties Fix rate A at one-tenth 


12B Re-do the problem under the onginal “as fast as possible” groundrule 
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13 0 SYSTEM PROGRAMMING AIDS 

The information presented m earlier chapters applies equally well to any KAL/S com- 
piler Except for numeric precision, the examples shown will produce the same results under 
any complete implementation of the HAL/S language This transferrability was one of the 
major design goals of the language It decreases the dependence on the availability of flight 
hardware and encourages the re-use of debugged software 

In order to provide this degree of machine-independence, the language isolates the user 
from details of the underlying hardware, e g , the number of bits in a scalar The anthmetic 
data types, Integer, Scalar, Vector and Matrix correspond to mathematical abstractions For 
most users, the mapping of these data types into the data formats supported by a given 
computer is of no concern The operations that can be performed on these data types are 
defined in a way that is completely mdependent of any computer architecture The character 
stnng, boolean, and event types also are defined abstractly Users do not normally need to 
know how much memory is occupied by a boolean or what character code (ASCII, EBCDIC, 
etc ) IS used internally Since these low level decisions are made in the compiler, HAL/S 
code is usually machine-independent 

While most flight code implements algonthms that are defined in machine-independent 
mathematical or logical terms, small portions of many projects are specified in terms much 
closer to the computer in use Examples of this low level code are foniiattmg sensor data, 
handbng interrupts, managing real-time clocks, commanding special purpose avionics, etc 
These functions are intrinsically machine-dependent Algonthms are designed in teims of 
hardware capabilities and concepts Thus, there is little chance of sharing this type of soft- 
ware between different projects Transferrabihty of “systems programs” is not a practical 
goal, given the diversity of flight hardware 

Even though system soffivare is generally specific to a given computer, the other advan- 
tages of high order languages still apply Also, the use of a single language for both apphca- 
tion and system programs tends to simphfy mterfaces, documentation and traiiung Hence, 
HAL/S provides some features for wntmg system software, including the use of pointers 
and low-level bit manipulation 

These features are most frequently used in software that is intnnsically non-transfer- 
rable The restnction of bit manipulation to the BIT data type, and similar constraints on 
addresses, separate the possibly machme-dependent systems programs from applications 
code 

13 1 BIT STRINGS 

, A bit stnng is a senes of bmary digits Each digit or bit behaves like a boolean The 
forms, BOOLEAN and BlT(l), are completely interchangeable A bit stnng of length four 
can be created via , 

DECLARE FLAGS BIT(4). 

Like vectors, character strings and other aggregate data types, bit stnngs may be sub- 
scnpted to select single components or partitions The first, leftmost, or most significant bit 
of FLAGS IS denoted FLAGSS 1 The last two bits would be referenced as FLAGS3(2 AT 3) 
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That catenation operator (I !) also applies, though bit stnngs differ from character strings 
m that bit strings are of fixed length The AND, OR and NOT operators can be applied to 
entire stnngs as well as their boolean components 

The length of a bit stnng must be Jess than an implementation-dependent hmit This 
limit generally equals the maximum number of bits that can be loaded into a general pur- 
pose accumulator or register on the target machine 

Operations on smgle bit components of a bit stnng are generally slower than correspond- 
mg operations on BOOLEANs or entire bit stnngs The machine mstmctions to perform 
these operations also tend to occupy more space * 


Because of the inefficiency of operating on a component of a bit string while leavmg the 
other bits alone, bit strmgs should not routinely be used to pack the individual booleans of a 
program into a single word One type of situation m which bit stnngs can be used effectively 
IS illustrated below 



*This IS because most memoiy umts are designed to transfer many bits (a byte or word) to or from the CPU 
m one operation Modifying a single bit generally requires the use of logical or shifting instructions to 
preserve the state of adjacent bits 
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E 

H 

E 

M 

S 

H 


IF C8 THEN 


B = CM; 

e 


end; 


In this code, eight booleans are packed in a bit stnng called B This makes the statements, 
BSl=ON, BS2=ON, etc, less efficient than references to the individual booleans. Cl, C2, 
etc However, the statement 

IF B = HEX'OOTHEN DO, 

IS much more efficient than 


IF NOT (Cl I C2 I C3 I C4 I C5 I C6 I C7 I CS) THEN 
DO, 

Since this statement is executed much more frequently than the individual assignments, the 
savings from making a simpler test more than offsets the cost of the component" assignments 
Thus, one application of bit stnngs is to collect booleans for testing as a group 

The example above tests whether all eight bits are false Other compound conditions can 
be tested via the AND and OR operators For instance, the following statement tests for the 
odd-numbered bits equal to zero 


IF (B & BIN‘IOlO-101010’) = HEXW THEN 
DO, 

The test that bits 1 and 3 are on and 2 and 5 are off can be coded as 


IF (B & BIN'IJIOIOOO’) = BINTOIOOOOO^ THEN 
DO. 
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When booleans are collected ui a bit string, it is still possible to give syraboLc names to 
individual components via REPLACE statements, as in 

REPLACE MEANINGFUL_NAME BY 

The only compansons that may be made between bit strings are equably and non- 
equality (= and “1 =) As with arrays, the components are compared m pairs Two bit strings 
are equal if all pairs match, and unequal if any pair mismatches If two bit strings of unequal 
lengths are compared, the shortest is padded on the left with binary zeros before the 
companson 

This left padding also occurs pnor to logical operations on bit strings of unequal lengths 
The following assignment statements all have the effect of setting BS6 to ON while leaving 
the other bits alone 


Bg = ON, 

B = B OR HEX‘04’, 

B = B OR HEX*4% 

B = B OR BINTOO’, 

Provided that the implementation dependent limit on bit string lengths is not less than 
twenty 

B = B OR HEX‘00004’ 

will also produce the same results A copy of B is padded to length twelve before it is ORed 
with the HEX‘004’, and the result is truncated at the left (the most significant four bits are 
removed) before it is stored back into B 

Partitions of bit strings may be used in the same ways as entire strings, e g 


IF B = OCTT7’ THEN 
1 TO 4 
DO, 

The width of every bit partition must be known at compile-time This means that m ±he 
form BS(X AT Y), X must be an arithmetic expression composed solely of hterals, CON- 
STANTS, REPLACE names and the anthmetic operators In the form BS(X TO Y), both X 
and y must be computable at compile-tune ’ Character sti mgs are the only data type for 
which vanable-width partition subscnpting is allowed 

As we have stated, bit stnngs should not be routinely used to pack booleans The over- 
head of referencing the boolean components generally outweighs the savings of compressing 
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them. In the first example, a bit string was appiopnate since the entire string was referenced 
more often that its components 

It may also be appropnate to use bit strmgs to pack a taA/e of booleans 'Smce there are 
generally fewer HAL/S statements which reference a table than entnes in the fable, it is 
possible to save memory (at the expense of execution time) by compressmg the table while 
expanding each reference For instance, m the table of 1 000 booleans, 

DECLARE INFO ARRAY(IOOO) BOOLEAN, 
each array element can be easily referenced as in 

IF INFOS (I ) THEN DO, 


but the table itself will occupy a lot of memory Each boolean uses a whole byte, word, or 
other addressable unit To save some storage, this table could be packed as shown below 


H 

DECURE IHFO ARRAYtl + 1000 / 161 niT(16); 

t1 

test: 

n 

FUNCTIDNIII BOOLEAH; 

n 

DECLARE I IHTE0ERJ 

H 

DECLARE IMTEGER, 

H 

nORD, BITKUM, 

H 

KOHD = DlVd, 16 J; 


BITHUM =1-16 WORD, 

E 


M 

RETURN IHFO 

S 

HOHD*l.BITNUMtl 

H 

CLOSE TEST, 


Now the value of entry number I in the table can be referenced as TEST(I) This will be a 
less efficient reference, but the table sixe has been greatly reduced 


This example assumes that the computer on which the code executes can address 
memory by the 16-bit unit If not, this code could be very much less efficient Thus, this 
example is not machine-independent It would still compile and produce the correct results 
on, say, a 24-bit machine, but to achieve the same efficient use of memory would require 
changing the four occurrences of 16 to 24 Thus, one reason why programs contaming bit 
stnngs tend to be less transferrable is that bit strings are sometimes used to control the 
packing of information in “words” of memory 


The expression lNFOS(WORD BITNUM) contains both array and component sub- 
scripts As before, many combmations of simple and partition, component, array, and 
structure subscripts are allowed 
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One of the most common uses of bit strings in aerospace applications is for foimatting 
sensor and display data For example, a sensor might produce a value in “packed decimal’* 
format Six four-bit fields, each containing a number from 0 to 9 (BlN‘0000’ to BlN'lOOl’), 
packed in a 24-bit word This could be converted to a simple mteger by the following code 


h 

M 

K 

E 

K 

S 

M 


CECLARE INPUT BITfaA); 

DECLARE OUTPUT IHTEGER INITlALtO); 

DO FDR I = 1 TO 21 BY 4, 

OUTPUT =10 OUTPUT + INTEGER f INPUT 3, 

4 AT 1 

EN0> 


Here we see that the INTEGER shapmg function will accept a bit string as its operand 
The effect is merely to treat the string as a binary number rather than a senes of booleans 

Conversely, the BIT function allows an integer to be treated as a bit stnng The length 
of the string returned is always equal to the implementation-dependent maximum bit 
length The code below assumes that the maximum is. 16 


H 

DECLARE I INTEGER, 

H 

B BITUGl; 

H 

READI51 i; 

E 

• 

H 

B = BITCI); . 

E 

. 

H 

IF B THEN 

S 

L 

H 

MRITECGI ‘VALUE OF 1 HAS NEGATIVE*, 

E 

. 

H 

IF B THEN 

S 

ff 

n 

WRITE! 6) 'VALUE OF I HAS ODD '5 


This example produces correct results only on a 16-hit 2*s complement or sign-magnitude 
computer Here the machme dependence results from both the strmg length of 16 and the 
assumptions made about the interpretation of the first and last bits of an INTEGER 
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Conversions between bit and integer types use the BIT and INTEGER functions The 
BIT function will also accept a scalar argument, and the SCALAR function will accept a 
bit argument However, an intermediate conversion to integer occurs m scalar-to-bit and 
bit-to-scalar conversions Thus, BIT(3 5) = BlN'OOOOOOOOOOOOOlOO’, and SCALAR(BIN 
'0100’) = 40 BIT of a scalar between zero and one-half generates a stnng of binary zeros 

The value returned by the BIT function is always of the maximum legal length for bit 
strings, as defined for the compiler version m use This fact must be considered when the 
BIT function itself is subscripted The last four bits of an integer, I, can be referenced as 

BITSC4 AT #-3) (I) 
but the expression 

BITSd TO 4) (I) 

may or may not select the first four bits of I If the number of bits in the representation of 
an integer is less than the bit string length limit, the BIT function will left-pad the bit 
pattern of I^with binary zeros up to the limit The subscript applied to a BIT function 
selects bits from the maximum-length result of the conversion, rather than from the onginal 
operand, so BITS(1 TO 4) (I) may pick out paddmg instead of data 

The CHARACTER function can convert a bit stnng to its binary, octal, decimal, or hex- 
adecimal character representation This is specified via a radix, which is wntten as a sub- 
script, for example 


H 

DECLARE B BITlSli 

E 


H 

B = BXTCeB); 

E 


H 

KRITE(S) CHARACTER (B)> 

S 

an EX 

E 


« 

HHITEI6I CHARACTER (B); 

s 

an EC 

E 


K 

MHITEIS) CHARACTER (Bll 

'S 

30CT 

E 

• 

H 

HRITE(6) CHARACTER (Bll 

5 

2BIN 

E 


rt 

wsiTEtei b; 


0F 
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would produce 


‘25’ 

‘31’ 

‘0001 . 1001 ’ 

‘0001 1001 ’ 

The BIT function can convert a character stnng back to a bit stnng The radix is sup- 
phed here as well Every character in the stnng must be a digit m the vahd range for the 
specified radix BIT$(@HEX) (‘12’) is BINTOOlO’, BITSC@OCT) (‘12’) is BIN‘I010’, and 
BITS(@BIN) (‘12’) would result in a runtime error Note that conversions between character 
and bit do not depend on the codes used to represent numerals within character strings 

Another function, SUBBIT, allows any data type to be referenced, assigned, and sub- 
scripted as if It were a bit string SUBBIT obtains the internal representation of a variable 
with no modifications at all Since these representations of HAL/S data types vary from 
computer to computer, programs which use SUBBIT can not be machine-independent 

The SUBBIT function is used in the code below to convert a character string containing 
deamal digits to the packed decimal form discussed earlier This routine assumes that the 
digits are represented in the EBCDIC character code In this code (which is not used in all 
implementations) the decimal digits 0—9 are represented by the binary codes HEX‘F0’ 
through HEX‘F9’ 

DECLARE C CHARACTER (4) 1NITIAL(‘1234’), 

DECLARE B BIT(16) INITIAL(HEX‘0000’), 

DO FOR TEMPORARY I = 1 TO 4, 

B = B 11 SUBBIT S(5 TO 8)(CSI), 

END, 

The expression SUBB1TS(5 TO 8)(C$I) selects bits five through eight of the binary rep- 
resentation of the Ith character of C SUBBIT can also be used to modify a variable as if 
it were a bit stnng The SUBBIT function is descnbed further in the HAL/S language 
specification 

As a final example of bit stnngs, consider the following problem Aset of three redun- 
dant sensors produce an ARRAY(3) BIT(16), where each sensor contributes one array 
element containing four fields as shown below 
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The problem is to produce a fourth word :n the same format which contains average values 
The five bit fields will be treated as unsigned integral numbers, the validity bit in the average 
Will be true if and only if all three input vahdity bits are true 

Hie data can be declared as 

DECLARE DATA ARRAY(3) BIT(16), 

DECLARE AVERAGE BIT(16), 

and the computation can be done jn a single statement 


E 

M 

S 

E 

i1 

s 


AVERAGE a BIT 1 SITU IKTEGERI 1 DATA t )l / 5) tl BIT * (SWICIKTEBERCIOATAI 

S AT S-A a 1 TO B B AT S-4 « 5 AT 


>> / 31 II BIT tSUHUHTEGERCtCATA] )1 / 3) II DATA AND DATA t DATA , 

A S AT 5-4 as AT 11 1 16 2 16 3 16 


Note that the bits in the diagram were numbered from one to sixteen, starting at the left 
(or most si^ificant bit) HAL/S always numbers bits in this way, regardless of any conven- 
tions that may be used in hardware documentation 

The expression BITS(5 AT #-4) ( ) selects the last five bits'of its operand Since the 

length of the stnng returned by the BIT function is implementation dependent, the use of 
“#-4” instead of “12” or “28”, etc , is generally preferred 

DATASC*" 1 TO 5) is an ARRAY(3) BITfS), this expression selects a bit partition from 
each array element Thus, the INTEGER function is being presented with an array of “Nl” 
fields 

This example also shows the use of the catenation operator on bit strings, which 
operates in the same way as on character strings 

In this section, two major uses of bit stnngs have been presented ,First„bit strings were 
used to collect booleans into a single word so that a complex boolean expression could be 
reduced to a simple comparison, the examples would work under any HAL/S implementa- 
tion The other major use of bit stnngs is for manipulating quantities of less than one 
addressability atom Bit subscnpts can be used to pick apart a word of memory This allows 
explicit user control over the packing of data, and provides a facihty for reformattmg 
avionics I/O data In this case, such considerations as the word size of the target machine 
and the internal representations of HAL/S data become important, hence, there is a degree 
of implementation-dependence in the use of bit stnngs 
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Exercises 


13 1 A Given, 

DECLARE FLAGS BIT(12), 

wnte ' expressions that test for each of the following conditions without using 
subscnpts 

a) bits 1 and 2 on, 

b) even numbered bits off, 

c) first six bits off or last six on, 

d) bits 1 , 3, S, 1 1 on, others off, and 

e) bits 1, 3, S, H on, 2, 12 off, others irrelevant 

1 3 I B Fill in the following function so it agrees with the comment 

FLIP FUNCTION(B) BIT(12), 

DECLARE B B1T(12). 

C Return string of bits in reverse order, 

C 1 e , FLIP(HEX‘OOr) should be HEX‘800’ 

CLOSE FLIP, 

13 1C Six bits can represent an integer value between zero and 63 If a table of 200 such 
values were to be stored in a computer with a 24-bit word, it would be advantageous 
to pack four values per word Wnte a procedure, 

SET_B1TS PROCEDURECENTRY, VALUE), 

which can be called to set one of the 200 6-bit entries to value, and a function, 
G£T_BITS FUNCTIONCENTRY) INTEGER, 
which returns the value of one entry Use the declaration 
DECLARE TABLE ARRAY (50) BIT(24), 

13 ID A common format for floating point numben consists of a sign bit, followed by 
seven exponent bits, and 24 mantissa bits The value of the number is 

± mantissa X 16 «xponent -64 

A non-zero number is said to be “normalized” if the first four bits of the mantissa 
are not all zero Wnte a procedure which interprets its B1T{32) argument as a 
floating point number, and returns a BIT(32) which has the same fioatmg pomt 
value as the input, but is normahzed If the input mantissa is 0, then return true 
zero (i e , all bits = 0} When would such a routine be useful 
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13 IE Re-do the packed decimal to integer conversion example m the text using only one 
executable statement 

13 IF Re-do the problem above without any anthmetic operatots Hint Use character 
operations 

13 2 NAME VARIABLES 

Name variables are pointers or addresses, they allow data to be referenced indirectly 
Name vanables are sometimes called “pointers-to”, since each name vanable can point only 
at vanables of a given data type The type of the data pointed to is speeified'in the declara- 
tion of the name vanable itself 

The most prevalent use-of pointers in general is to pass the address of a data aggregate 
(such as MATRIX) to a subroutine In HAL/S, this is done implicitly via ASSIGN param- 
eters, hence, the need for name variables m application programs is almost eliminated In 
system programs, mame vanables may be used for efficiency in maintaining linked lists and 
queues, for buffer control and storage management, and for interfaces to non-HAL/S code 
or I/O hardware (e g , a DMA channel) 

Another common use of name vanables is to avoid a repeated structure subscnpt opera- 
tion Suppose an inertial sensor produces data in the format indicated below 

STRUCTURE IMU_DATA 

1 DELTA_V ARRAY(3) INTEGER DOUBLE, 

1 ATTITUDE ARRAY{3) INTEGER, 

1 STATUS B1T(16), ‘ 


There are three of these sensors 

DECLARETMU_INPT IMU_DATA-STRUCTURE(3 ) , 

A low rate process is to select the best of the three copies of IMU data, the entire structure 
IS to be read and the selected-copy processed at a higher rate One way“ to pass the selection 
information between the processes is as a structure subscript An integer, 

DECLARE BEST INTEGER, 

could be located m a compool visible to'both processes 'It would be assigned to h, 2 or 3 at 
the low rate, and the high rate would have computations involving IMU_INPT$(BEST,) No 
name vanables are used so far, but this solution will work Individual components of the 
selected structure can be referenced as in 

PITCH_ ANGLE = SCALAR(IMU_INPT ATTITUDEb^Sj j ), 



*without using name variables 
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Every reference to the selected structure copy includes the subscnptmg operation This 
conceptually involves adding the base address of the structure to the product of the struc- 
ture width and the value of BEST Multiphcation is relatively slow on most computers It 
would generally be more efficient to compute the address of the BEST copy of 1MU_INPT 
only once and reference it directly through this saved address Both “indexing” and “in- 
direction” are performed in a vanety of ways on different computers, but when the index 
requires multiplication, in this case by the width of ten integers, indirection is quicker This 
is not to say that it is always preferred Sonae of the nsks of using name variables will be 
discuss e'd'later 

Before giving the name vanable solution, we note that the address can be computed and 
saved by adding an additional procedure 
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CALL lORA ASSIGN! Im_IHPT ); 

best; 


XTRA: 

PROCEDURE ASSIGN! BEST^IHU ) ; 

DECLARE BEST I«U If'U_DATA-STHUCTOHE; 


PITCH_ANGLE = SCALAR! BEST_IHU-ATTITUDE H 

1 


CLOSE XTfiA; 


Here the structure subscnpt is elimmated throughout the XTRA code block, since HAL/S 
ASSIGN parameten are a case of “call by reference” rather than “call by value” The 
address of the argument is passed to.the^procedure Name vanables allow the same type of 
indirect reference without the overhead of calling an extra procedure This js shown below 
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STRUCTURE IMU_DATA 

1 DELTA_V ARRAY! 3 1 .INTEGER DOUBLEi 
1 ATTITUDE ARBAV(3) INTEGER, 

1 STATUS BIT (161, 

DECLARE XnU_INPT IKU_0 ATA-SYBUCTURE ( 3 1 1 
declare BEST INTEGER. 

DECLARE PITCH_ANGLE SCALAR; 

DECLARE BEST_IHU NAtlE IKU^DATA-STRUCTURE ; 
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LOH_RATE! 

task; 

DECLARE BEST IfTTEGER, 

CALL TBD ASSIGMLBESTj; 

+ + 

NAHEIBEST IHU) = NAHEtim IHPT J; 

BEST; 

CLOSE LOW„RATE, 


HI_RATE 

TASK, 


PITCH ANGLE = SCALAR (BESTJHU ATTITUOE 3; 

1 


CLOSE hi_rate; 


This program is much the same as before In particular, the HI_RATE task is the same as 
when BEST_IMU was an assign parameter, except that the XTRA procedure is gone 

The name variable, BEST_IMU, occurs three times m the program above First is the 
declaration A vanable is specified to be a name by placing the keyword NAME before 
the data type The second is when it appears as an operand to the NAME function in the 
LOW_RATE task In this context (and only iti this context) the name is treated as a pointer 
Here it is set to the address of the best copy of IMU_INPT The only way to ‘Te-point” the 
name vanable BEST_1MU is by executing a statement of the form 

NAME(BEST_IMU) = NAME( ); 

The only way to reference a name variable’s pointer value at all is by use of the NAME 
function Normally, BEST_IMU is of type IMU_DATA-STRUCTURE It may be used any- 
where that a non-name vanable of type 1MU_DATA-STRUCTURE is allowed In a normal 
context, outside the name function, a name variable serves as an alias for data of some other 
type, hence the terminology NAME instead of “pointer” This is not at all the same as the 
use of a REPLACE macro as in 

REPLACE BEST_IMU BY “IMU_INPTS (BEST,)”, 

because the replace macro results in the subscnpt operation performed every time In the 
case of name vanables, changes to the value of BEST only affect which data is referenced by 
BEST__IMU when the 

NAME(BEST„IMU) = NAME(IMU_INPTS (BEST,), 





name assignment is executed 
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Name vanables may be of almost any data type^ though the most useful is structure The 
types of data to which names cannot point are those which require more than a simple 
address to descnbe These are the same types that are disallowed as assign parameters, ex- 
amples include bit partitions, matnx columns, etc 

^ I 

A name variable can only refer to data of exactly the same type as specified m its decla- 
ration This means that all of the type attributes must match, includmg precision, arrayness, 
structure hierarchy, and so on The INITIAL attribute is an exception The statement 
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+ 

OECLAHE BEST^IMU HAME IHU_DATA-STI!UCTURE INITIALCNAMEIimf_IWPT 1); 

Z, 


initializes NAME(BEST_1MU), i e , the pointer value When a name vanable is declared, 
the amount of storage reserved js just enough for one address The INITIAL attnbute 
specifies the value to be placed in this address word The block of storage needed to contain 
an 1MU_DATA-STRUCTURE is not allocated when the name is declared, thus the initial 
values for the structure pointed at must be specified elsewhere The statement shown causes 
the name vanable BEST_IMU to point initially at the second copy of 1MU_INPT 

If the INITIAL attribute is not specified in a name declaration, the name mitiaUy points 
nowhere A special value is used as a null address so that all uninitialized names have the 
same values This null value is an address at which it is impossible to locate data and can be 
wntten either as “NULL” or as “NAME(NULL)” It is possible to determine whether or not 
a name vanable points anywhere, as shown below 


E f 

» IF HAHECBEST IHUJ = HAHECNULU THEN 

H NRITEC6) 'SEST IHU NOT CHOSEN', 


The basic NAME syntax has been shown in the context of one example The forms of 
declanng, initializing, re-pomtmg,and dereferencmg (i e , accessing the data pointed at) have 
been shown The main example used is machine-independent and at least somewhat apphca- 
tion onented Nonetheless, there are pitfalls in the use of name variables If is difficult to 
find out what a name vanable is pointing at by examining the code surrounding a reference 
to it Data which is accessed via name vanables is not fully tracked in the cross reference 
hsting Name vanables allow a single location to be referenced by several’identifiers, possibly 
resulting in obscure side-effects of assignments Name vanables also tend to bypass compiler 
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optimization, since they make it difficult to find a segment of code over which a particular 
vanable is not modified It is hard for either the programmer or the compiler to be certain 
what IS being changed when name variables are assigned into Thus, it is frequently worth- 
while to use a less efficient but less dangerous construct such as structure subscripting A 
common lament is “I though I understood this code until I saw these name variables'” 

In most application code, name vanables should be avoided The possible gain m effi- 
ciency IS generally outweighted by the loss in reliabihty and mainfainabUity*" Name vari- 
ables are provided in HAL/S pnmanly to allow the wnting of system software 


Exercises 

13 2 A Name any three HAL/S data items which cannot appear as an operand of the NAME 
pseudo-function 

] 3 2B Which of the following can be done with name vanables 

a) bypass HAL/S scoping rules, 

b) declare a structure node with copiness, 

c) reference a smgle data item by several names or identifiers, 

d) reference absolute addresses, and 

e) change the type of data 

13 3 LISTS AND QUEUES 

The HAL/S language does not provide syntax for dynamic storage allocation Tempo- 
rary vanables and space for intermediate results may be allocated and freed by the nintime 
code, but alt decisions are made based on the static block structure, DO END grouping, 
etc List processing languages can automatically release data that is not on any Lst and 
allow the space so created to be used for new lists HAL/S does not provide this type of 
storage management because it is not possible to guarantee that such systems will not run 
out of storage this would be an unacceptable condition in flight 

Aside from storage management, the most valuable feature of lists is that entries can be 
deleted or inserted in the middle without copying data This capability is available m HAL/S 
through structures and name vanables 

Consider the timer queue, a concept which is central to many operating systems Each 
entry in the queue contains a time and an action to be taken The queue is maintained m 
order of increasing time the top entry is loaded into an interval timer This could be coded 
in HAL/S as shown on the next page 


♦Qualitatively speaking, a program’s reliabiLty is the probability that it has no hidden bugs its maintain- 
ability IS the probability that it can be changed or extended without reducmg reliability 
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STRUCTURE TQE. 

TIMER QUEUE ELEMEHT 

1 TIME scalar, 

1 ACTIOH INTEGER, 

1 AFFECTED PROCESS HAME PRCCESS_CONTROL-STRUCTURE, 
1 HEXT NAME TQE-STRUCTURE , 

DECLARE TQ TQE-STRUCTUHEtlOO]; 


These statements create a 100-copy structure, with four fields in each copy Two fields 
are name variables, they are referenced in the usual manner, e g , 

TQ AFFECTED_PROCESS$(l .) 

IS the third field of the first copy of TQ It is of type PROCESS_CONTROL-STRUCTURE 
Only the address is physically contained in TQ$(1,), but the structure elsewhere is accessed 
when the name variable is referenced in a normal context (i e , outside of the NAME func- 
tion) The other name vanable points to a TQE structure The last field of TQE is the name 
of another TQE We will explore the implications of this later As it stands, all of the fields 
in TQ are null The queue could be initialized as shown below 


H DECURE FREE_Q NAME TQE- STRUCTURE, 

H DECLARE ACTV_Q NAME TQE- STRUCTURE I 


H INITIALIZE 

E + + 

M HAflEt FREE_Q ) = MAMEiTQ )! 

s i; 


E 

H 

S 


DO FOR TEMPORARY N = 1 TO 99, 

+ + 

NAME! TQ, NEXT 1 = NAMEtTQ ), 
N, N+l; 


M 


END, 
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Now the entries m the queue are tied together with pointers, as shown below 



The structure copy numbers are shown in the diagram, but each field can now be referenced 
without using a copy number, as indicated in the following table 


Referenced Data 


Pointed To By 


TQS(1,) 

TQ$(2,) 

TQ$(3,) 

TQ T1MES(2,) 


FREE_Q 
FREE_Q NEXT 
FREE_Q NEXT NEXT 
FREE_Q NEXT TIME 


Stnce FREE_Q NEXT is the name of a TQE structure, it also has a NEXT field This field 
pomts at the third entry in the free queue, which at the moment is also the third copy of 
TQ 


The procedure below creates an entry in the active queue by removmg it from the free 
queue and msertingit at the appropnate point in ACTV_Q based on the tune field 
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E^QtJCUE 

PJJOCEOL'9E(WHEiU UHAT* PRDCNAME), 

SCALAR* 

UHAT iriTEGER* 

PPaCMAHE WfitlS PRDCE$S,COIITROL-STRUCTUPE, 
DECLARE HEW NAME TGE-STRLCTURE , 

the FOLIOWJI-’G NAME VARIABLE IS USED LIKE A LOOP 
VARIABLE IN A SEARCH 

DECLARE EHT NAME TQE-STRUCTURE , 

IF HO FREE ESI7RY THEN AN EPROR 


IF HAnEtFREE_G) = WLL THEN 
RETURMi 




% 
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c 
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ELSE USE TOP FREE EHTRT FOR HEH ACTIVE Q ELEMEHT 


N4HE(HEH] = KAHEIFHEE_QJ. 

REMOVE HE« EHTRV FROM FREE^Q 

+ ♦ 

HAHEIFREE_q) = MAilEt FBEE_Q HEXT), 

PUT INFO INTO NE« EHTRT 

HEU TIME = KHEMi 
NEW ACTION = RHU. 

♦ + 

HAMEIHlU AFFECTED_FP0CESS) = HAHE1PROCMAME), 

HCH INSERT NEW EltTHT IH APPROPRIATE POINT OF ACTV qUEUE 
EITHER BEFORE FIPST, 

EETS.EEH EHT A '0 EHT NEXT FOR SOME ENT 
CR AT END OF QUEUE 

IF NEH TIME < ACTV_0 TIME THEM 
DOr 

♦ f 

«AWE(MEH HEXTJ = HAHEIACTV_Q)> 

4 4 

NAMECACTV_0) = KAMefMEMJ, 

RtTUPK. 

ENDf 

+ 4 

NAMEIENTI = HAMEC ACTV^Q ) , 

4 

00 WTIL HAriE<EHT tlEXTJ - KAH^OfULLJ, 

■V 4 

HAtlECEtm = HAT1EUCTV_(?], 

IF £MT fJEXT TliE > MEM TIrtS THEN 
DOt 

4 4 

NAKEtMEM MEXTJ = MAMEceHV HEXT), 

4 4 

NAHE(EHT NEXT) = MANEIIIEW^ 

RETUPN. 

EI40p 

4 4 

KAHEtCNT) s NAT1E(E»T NEXT], 

E»tO, 

AT THIS POINT,, THE WHOLE Q HAS SEARCHED UNSUCCESSFULLY, 

SO ADO NEH TO THE ENO 


NAMECEHT NEXT I s NAHECNEHI, 

•* 

NAMEINEU NEXT! = NULL. 

CLOSE ENQUEUE. 


/* PUT FIRSTV 


/"START AT TOP*/ 
/* SEARCH Q»/ 
/“START AT TOP*/ 


/* NEH ENTRY INSERTED •/ 
/» TRY NEXT ENTRY*/ 


J • » 






'v'V ^ 


f - 




,i - 




'H 
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This procedure can insert an entry in the middle of the queue \vithout physically moving 
subsequent entnes down, since the sequence information is encoded in the links (name 
variables) rather than the position in memory (the copy number) After 

CALL ENQUEUEdO, 1, NULL), 

IS executed, the queue looks like 


FREE Q 


ACTV Q 



If the next calls are 

CALL ENQUEUE(20, 1, NULL), 
CALL ENQUEUE(I5, 1, NULL), 


the queue looks like 



Now, ACTV_Q IS T^QSd ,), 

ACTV_Q NEXTisTQS(3,), and 
ACTV_Q.NEXT NEXT is TQ$(2 ,) 
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Thus when viewed as a list structure, the elements of ACTV_Q are sorted by increasing 
TIME, even though 

TQ.TIME(2,) > TQ.TIME$(3,) 

This queue could be used m implementing the HAL/S real time statements The code 
below illustrates how the timer queue might be used The CALL SET__CLOCK and WAIT 
FOR event statements are intended to load the value ACTV_Q TIME into an interval timer, 
and wait forrthe-interrupt This would have to be done via assembly language or %^macros 
“Percent” macros are implementation-dependent They allow a pre-defined sequence of 
machine instructions to be inserted in a HAL/S program More detail is given in each Users 
Manual 


M 

IKT HANDLES! 

M 

TASK, 

M 

DECLARE CLOCK_IHTERRtJPT EVENT, 

H 

DECLARE TEJ1P NAHE TQE-STRUCtURE: 

t1 

DO WHILE TRUE; 

M 

CALL SET CLOCKIACTV 0 TIME) ASSI6N(CL0CK„IMTERHUPT); 

t1 

WAIT FOR CLOCK INTERRUPT; 

U 

DO CASE ACTV_Q.ACTIOH, 

E 

+ 

H 

CALL RECYCLE CACTV^q AFFECTED_PRDCE55) , 

E 

+ 

t1 

CALL CAHCEL_PROCCACTV_Q.AFFECTED_FROCESS) , 

E 


H 

CALL READY! ACTV„Q AFFECT£D_PR0CESS3 , 

E 

“ + 

H 

CALL SCHEDULE ATCACTV 0 AFFECTED PROCESS!; 

H 

; /* ETC */ 

f1 

END; 

C 

HOW REHOVE TOE FROM ACTIVE CHAIN 

E 


n 

HAMECTEMP) = NAKEl ACTV_Q); 

E 

+ 4 

H 

HAHEfACTV Q) = KAHECACTV q.NEXTJ; 

E 

4 4 

M 

NAtlECTEMP NEXT) = NAHE( FREE_Q3 . 

E 

4 4 

H 

NAME! FREE Q) = NAHEETEMP)! 

H 

END. 

M 

CLOSE. 

H 

RECYCLE 

H 

procedure EX); 

H 

DECLARE X PRaCES5_CaNTR0L-STRUCTURE, 

H 

CLOSE. 

M 

CANCEL PROC 

M 

PROCEDURE EX), 

H 

DECLARE X PROCESS CQHTHOL-STRUCmRE ; 




LiiJj and Queues 1 3-21 


With the process INT_HANDLER running, and appropnate routines to recycle, cancel, and 
otherwise change process states, ENQUEUE could be called as a result of several HAL/S 
statements ‘'WAIT 5 executed by some process X might be translated to 

CALL ENQUEUE(RUNTIME -i- 5, 3, NAME(X)), 

CALL STALL(NAME(X)), /"^enter wait state**/ 

Here we are assuming that X is a process_control-structure Such a structure might 
consist of 


M 

STRUCTURE PROCESS CONTROL’ 

M 

l'SAVE„AREA RIGID, 

H 

2 FIXED REGS ARHAYtlSJ BIT(32)> 

K 

2 FLOAT REGS ARRAYCS] SCALAR DOUBLE, 

n 

2 OTHER BIT(32), 

K 

1 PRIORITIE IIPTEGER, 

H 

1 STATUS INTEGER, 

M 

1 NEXT NAME PROCESS„COHTROL-STRUCTURE, 

M 

1 LAST NAME PH0CESS_C0!1TRQL-STRULTUHE, 


when the node, SAVE_AREA is machine dependent This is a double linked list Each 
entry has both forward and backward pointers To see how this is useful, suppose that there 
are three queues containing process control blocks (PCBs) FREEPC will be the anchor 
(simple name vanable pointing at the first element of) of a queue of unused PCBs, 
READYPC will be the anchor of a queue of PCBs representing ready processes, (sorted by 
pnonty), and STALLED will be a queue representing blocked processes (e g , those in the 
wait state) One of these queues is diagrammed on the next page All three have the same 
form The STALL routine that was called above might simply remove the indicated process 
from the READYPC queue and add it to the STALLED queue The argument to STALL is 
the address of the PCB to be removed from the READYPC It could be written as 
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DECLARE READY PC NAME PROCESS COh^TROL-STRUCTURE, 
DECLARE STALLED NAME FHDCESS.COHTROL-STRUCTURE, 
DECLARE FREEPC NAME FRDCESS_COHTROL-STRUCTUHE, 


STALL: 

PROCEDURE ASSIGNCPCB); 

declare PCB PROCESS_CONTROL-STRUCTURE, 

REMOVE FROM READY QUEUE 
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+ + 

NAHECPCB LAST NEXT) = NAMEtPCB NEXT), 
+ + 

NAMECPCB.KEXT LAST) = HAHEIPCB LAST); 

ADD TO STALLED QUEUE AT THE BEGIHNING 

-+ + 

HAUEfPCB HEXT) - HAMEC FREEFC) ! 

+ + 

NAHE(FREEFC) = HAHEIPCB), 

CLOSE stall; 

CLOSE LAST_EXAnPLE5 


The reason a double hnked list is needed is that STALL receives the address of a PCB in the 
middle of a chain 



To remove it, the links of both neighbors must be changed A singly linked list would suf- 
fice if it was always searched starting from READYPC 

In this section, we have sketched portions of one possible implementation of the HAL/S 
real time statements This design does not necessanly correspond to any actual operating 
system The pomt of this section is to give a degree of famihanty with sophisticated uses of 
name vanables, and to illustrate that large portions of “system programs” can be written m 
HAL/S 

This system presented is not at all complete A routine is needed to make a process 
ready It could be essentially the same as the ENQUEUE routine shown earlier The routine 
that readies a cychc process when the timer goes off should put a new entry in the queue for 
the next cycle Also, some low-level control code is needed to dispatch the highest pnonty 
ready process This process is always the one that corresponds to READYPC, since the 
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ready queue is sorted, the top routine is always the one to receive control However, there is 
no HAL/S syntax for branching to a program or for loading/stonng specific machine regis- 
ters At some level, assembly language has to be used, though HAL/S does allow certain 
canned machine-instruction sequences to be generated via % macros These macros make 
machine dependencies hi^ly visible in the listing If the %-macros defined for a particular 
implementation are not sufficient, assembly language comsubs can fill the gap 

Name vanables, percent macros, bit strings, EQUATE EXTERNAL*^, and the ability to 
call assembly language routines all contnbute to making HAL/S suitable for systems pro- 
gramming Use of these features in application programming is discouraged, nonetheless, 
some safety is provided by the type checking rules {as applied to name vanables and bit 
stnngs) and other safeguards Even m the system-language portion of HAL/S, many forms 
of bad programmmg practice are precluded by compiler restnctions These features are 
designed so that reliable, readable and efficient programming is still encouraged even though 
it cannot be as thoroughly enforced when the system programming features are used 


Exercises 

1 3 3 A Declare and initialize a structure, CIRCLE, such that the following statement is true 
NAME(CIRCLE NEXT) = NAME(CIRCLE) 

13 3B Change the declaration of the timer queue so that each element (TQE) is the head of 
an arbitrary-length list of action-affected process pairs all to be done at the same 
time, as illustrated 
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Change the ENQUEUE routme to either add the new element to the end of an 
existing hst, if there is already one, or more actions at that time, or insert a new list 
consisting of a header and the new item 

13 3C As wntten m the text, the procedure STALL may fad with some inputs When will 
this happen'^ Modify the procedure to remove this problem 


End of Chapter Problems 

13 A Wnte a procedure which will insert a PROCESS_CONTROL-STRUCTURE in the 
READY^PC queue (both defined as in Section 13 3) after all entries having an equal 
or higher PRIORITIE and before all entnes that are lower Remember to mamtain 
bothTorward and backward links 

13B Wnte a program which will read in two hexadecimal numbeis (of up to six digits) 
separated by either a plus of minus sign, and pnnt their sum or difference in both 
decimal and hexadecimal 
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Appendix A 


ARITHMETIC FUNCTIONS 

• Arguments may be integer or scalar 

• The data type of the result matches the argument type unless otherwise 
noted 

• Arrayed arguments generate multiple invocations of a function, one for 
each element m the array When two or more arguments are arrayed, 
their arrayness must match * 

Name <Argumenfs(s)> 

Comments 

ABS(X) 

Absolute value IX 1 

CEILING(X) 

Smallest integers X 
CEILING(— 3 4) returns —3 

DIV(X,Y) 

Integer division X/Y, where scalar arguments are 
rounded to integers This construct is the only way to 
do integer division m HAL 

DIV(5,2) returns 2 

Note Where X, Y, Z are integers X = 5, Y -2 The 
statement Z = X/Y results in two integer to scalar con- 
versions and a scalar divide Finally, the result is con- 
verted to an integer type In this case Z = X/Y sets Z 
to 3 

FLOOR(X) 

Largest integer < X 
FL00R(-3 4) returns -4 

MIDVAL(X,y,Z) 

The value of the argument which is algebraically be- 
tween the other two If two or more arguments have the 
same value, that value is returned 

MIDVALf- 4, - 6, 3 5) returns - 4 

MOD(X,Y) ' 

X MOD Y (modulus) The result is scalar unless both 
arguments are integers 

MOD(5,3) returns 2 
MODC5,— 3) returns 2 
MOD("5,3) returns 1 
MOD(— 5,— 3) returns 1 
MOD(— 5,2 1) returns I 3 


*For a discussion of arrayness, see Section 6 2 
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ARITHMETIC FUNCTIONS (CONT’D ) 


Name <Argument{s)> 

Comments 

ODD(X) 

Result IS BOOLEAN True if X is odd, false if X is even 

IF(ODD(X)) 

THEN .. 

Note Scalar arguments are rounded to integer 

REMAINDER(X,Y) 

Signed remainder of integer division X/Y 

REMAINDER(-5,3) returns ^2 
REMAINDER(5 -3) returns 2. 
REMAINER(-5,-3) returns -2. 

Note Scalar arguments are rounded to integers 

ROUND(X) 

Nearest integral value to X, essentially the same as HAL 
scalar to integer conversion 

SIGN(X) 

Returns an integer +1 \fX>0, 
-lifX<0 

SIGNUM(X) 

Returns an integer +1 if X > 0, 
OifX^O, 
-1 ifX<0. 

DO CASE(SIGNUM(X)+2) 

TRUNCATE(X) 

Strip off fractional part of the scalar (X) 

TRUNCATE(-3 4) returns -3 
TRUNCATE(7 8) returns 7 
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ALGEBRAIC FUNCTIONS 

• Arguments may be integer or scalar types — conversion to scalar occurs 
with integer arguments 

• Result type js always scalar 

• Arrayed arguments cause multiple invocations of the function, one per 
each array element 

• Angular values are supplied or delivered in radians * 

• Arguments that are outside the domain specified in the comments result 
in HAL/S runtime errors, (see Chapter 10) 

! 

Name <Argumenf(s)> | 

Comments 

ARCCOS(X) 

1 

IXK 1 

ARCCOSH(X) 

X > 1 

ARCSIN(X) 

IXK 1 

ARCSINH(X) 


ARCTAN2(X,Y) 

Returns d = tan"‘ (X/Y) where the proper quadrant for 
-TT < 6 < IT is determined from the signs of X and Y 
Proper quadrant results if 

ARCTAN(X) 

Principle value only, see above 

ARCTANH(X) 

IXK 1 

COS(X) 


COSH(X) 


EXP(X) 

eX 

LOG(X) 

loggX, X > 0. 

SIN(X) 



*One radian equals 57 2957795131 degrees, so that 
IT radians equals ISO degrees, 

7t/ 2 radians equals 90 degrees 
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ARRAY FUNCTIONS 

• Arguments may be single or multi-dimensional arrays of scalars or 
intcgcn 


• The type of the result matches the type of the argument and is 
un arrayed 


Name <Argument{s)> 

Comments 

MAX(X) 

Maximum of all elements of X 

MIN(X) 

Minimum of all elements of X 

PROD(X) 

Product of all elements of X 

SUM(X) 

Sum of all elements of X 
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BIT FUNCTIONS 


• HAL/S provides AND, OR, and NOT operators for bit operands XOR 
(exclusive OR) is available as a buiit-in function 


Name <ATgument(s)> 


Result Type 


Comments 


XOR(X,Y) 


BIT 


Exclusive OR, where X and Y are bit 
stnngs The length of the result is the 
length of the longer argument The shorter 
argument is padded on the left with zeros 
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CHARACTER FUNCTIONS 

• The first argument m each of the functions below is a character stnng If 
a scalar or integer is specified where a character stnng is expected, a con- 
version to character type is performed 

Name <Argument{s)> 

Result Type 

Comments 

INDEX(C1,C2) 

Integer 

C2 is a character stnng If stnng C2 is con- 
tained within stnng Cl, an index which is 
the location of the first character of C2 in 
Cl IS returned, otherwise, zero is returned 

INDEXCCHARACTER’, 'ACTER’) returns 
5. 

INDEXC'ALPHA’, ‘BETA’) returns 0 

LENGTHCO 

Integer 

Returns the current length of character 
stnng C 

UUST(Cl,n) 

Character 

n IS integer type — the stnng Cl is ex- 
panded to length n by padding on the nght 
with blanks If n is less than the current 
length of Cl, an error is signaled and Cl is 
truncated to length n 

RJUST(Cl,n) 

Character 

n IS integer type — the stnng Cl is ex- 
panded to length n by padding on the left 
with blanks If n is less than the current 
length of Cl, an error is signaled and Cl is 
truncated to length n 

TRIM(Cl) 

Character 

Leading and trailing blanks are stripped 
from Cl 
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JvnSCELLANEOUS FUNCTIONS 

• Arguments are as indicated, if none are indicated the function has no 
arguments 


• Result type is as indicated 


Name <Argument(s)> 

Result Type 

' Comments 

CLOCKTIME 

Scalar 

Elapsed time since midnight (format is im- 
plementation dependent) Sec Chapter 1 2 

DATE 

Integer 

Returns date (implementation dependent 
format) 

ERRGRP 

Integer 

Returns group number of last error de- 
tected, or zero if no error was detected See 
Chapter 10 

ERRNUM 

Integer 

Returns number of last error detected, or 
zero if no error was detected See Chapter 
10. 

NEXTIME 

«label» 

Scalar 

<|abel> IS the name of a program or task 
The value returned is determined as 


follows 


a) If the specified process was scheduled 
with the REPEAT EVERY option, and' 
has begun at least one cycle of execu- 
tion, then the value is the time the next 
cycle will begin 

b) If the specified process was scheduled 
with the IN or AT phrase, and has not 
yet begun execution, then the value is 
the time it will begin execution 

c) Otherwise, the value is equal to the cur- 
rent time (RUNTIME function) 

PRIO Integer Returns pnonty of process calling func- 

tion 

RANDOM Scalar Returns pseudo-random number from rec- 

tangular distribution over range 0-1 ^ 


•Note that for any particular HAL program complex which contams references to random and/or randomg, 
the same set of “random” numbers will be generated m each execution 
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MISCELLANEOUS FUNCTIONS (CONT’D ) 


Name <Argument{s)> 

Result Type 

— 

Comments 

RANDOMG 

Scalar 

Returns pseudo random number from 
Gaussian distnbution with a mean of zero, 
vanance of one * 

RUNTIME 

Scalar 

Time since the software began executing 
(implementation dependent format) See 
Chapter 12 

SHL(X,Y) 

Integer 

X shifted left Y bit positions X and Y may 
be scalar or mteger, but scalars are con- 
verted to integer before shifting This is an 
anthmetic (signed) shift 

SHL(-2,2) returns —8 

SHR{X,Y) 

Integer 

X shifts right Y bit positions As above, tins 
IS an arithmetic shift 

SHR{— 4,2) returns -1 

SIZE(X) 

Integer 

One of the following must hold 

— X IS an unsubscnpted arrayed vanable 
with a one-dimensional array specifica- 
tion — function returns length of array. 

— X IS an Unsubscnpted major structure 
with a multiple copy specification - 
function returns number of copies 

— X is an unsubscnpted structure termi- 
nal with a one-dimensional array speci- 
fication — function returns length of 
array 

Result IS of integer type | 


*Note that for any particular HAL program complex which contains references to random and/or randomg, 
the same set of “random*’ numbers will be generated in each execution 
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Appendix B 

Although the main body of this manual has avoided references to specific compilers, 
there is considerable similarity m the compilers now available In this appendix we will de* 
scnbe additional software development support which is typically provided 

The HAL/S compiler is not simply a language translator All current implementations in- 
clude features not usually found m other common compilers, such as PL/1, FORTRAN, etc 
These include special processmg and annotation of the listings, facilities for restncting usage 
ofvanables or language features, and additional outputs for post-compilation tools 

In addition to annotating identifiers and indenting as described m the text, the compiler 
adds several types of summary information to the listing At the end of each procedure or 
function block, that block’s interfaces are listed The information presented includes lists of 
global variables referenced or modified, external procedures called, event vanables modified, 
compool REPLACE macros used, and so forth At the end of the listing a table of identifiers 
IS pnnted, including the data type and a list of all statements which use the identifier Some 
compilers produce a hstjng of annotated assembly language which corresponds to the 
machine code actually generated This aids in debugging on flight hardware, although more 
sophisticated debugging supports is also provided 

Two facilities provide for the estabhshment of managenal control over HAL/S usage 
ACCESS rights allow restrictions to be placed on the modification of selected vanables or 
on the usage of blocks Since this can be done separately for each compilation unit, 
ACCESS nghts provide managers with an important tool for controlhng the interfaces be- 
tween modules Another device is the SUBSETmg capability, which provides the ability to 
restnet the usage of a user selected subset of HAL/S language features or built-m functions 
This mechanism does not affect the code generated but merely flags by a warning message 
on the pnmaiy listing those statements violating the SUBSET 

The efficiency and reliability of program complexes can be improved by use of a special- 
purpose link editor or binder These programs (e g , HALLINK) can reduce storage reqmre- 
ments by generating the call tree beneath each program or task and allocating a temporary 
storage area (or stack) just large enough for the longest limb of the tree If a compiler sys- 
tem includes an appropnate hnk editor, it may also add to software reliability While the 
vanous HAL/S modules are being bound together, they can also be checked for consistency 
The template generation system (chapter 1 1) passes information to the link step that, for in- 
stance, allows verification that every program used the same compool template 

Another output of each compilation is a Simulation Data File or SDF This is a random 
access data base containing attribute and cross reference information for vanables and code 
blocks Data concerning executable statements is also included, as well as global statistics 
found in the pnmary listing It is this laige database that allows for many post-compilation 
analysis tools, ranging from execution-time debuggers to HALSTAT, a statistics and analysis 
package 
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Programmers have many modes of execution available to them in most implementations 
of HAL/S Even running stand-alone (on a host computer) one can obtain detailed error 
diagnostics related directly to the HAL/S source by statement number and block name, and 
optionally obtain an end of run fonnatted dump of all variables And if a program termi- 
nates abnormally, a fulbtraceback,' showing the flow of control from block to block; will be 
given Another package allows one to request dumps and traces of variables while running m 
a batch e'nvironment This package can also provide a detailed log of real-time transactions, 
showing the transitions from- process to process Moreover, certain implementations provide 
the capability of “functional simulation,” or FSIM, of another target computer In this 
usage, the amount of memory used is approximated by allocating variables in the same fash- 
ion as on the target machine Also, the extent of CPU utilization is estimated for the target 
machine with a running accumulation of time maintained automatically The FSIM facility 
as very useful in cases where, the target machine is not commonly available or is difficult-to 
use One very valuable feature available under FSIM is the “profile” capability „ A listing can 
be generated which shows the number.of times each HAL/S statement m the program com- 
plex was executed The estimated total, execution time for each statement, and other statis- 
tics, allow the efficiency programs wntten. m HAE/S to be attacked at the point of greatest 
leverage 


One host computer contains an interactive HAL/S debugger This program uses informa- 
tion from the simulahon data files as well as “hooks” inserted in the machine code to allow 
debuggmg at the HAL/S level (i e , without knowing any details of the underlying com- 
puter) Breakpoints can be set by statement number or label For mstance, “AT LOOP + 3,” 
sets a breakpoint three HALfS statements after the label “Loop”. Variables can be inspected 
and modified by their symbolic. names, all values are entered or presented in the standard 
external format Data aggregates may be subscnpted or pnnted in entirety Since the SDFs 
contain full type information, there is no need to debug in hexadecimal or octal, or to con- 
tinually specify display formats Since HAL/S programs reference vanables via scoping rules, 
this debugger provides a SCOPE command This command has a block name as its argu- 
ment References to vanables in subsequent commands are interpreted as they would be in 
the named block A SCOPE command is automatically performed when a breakpoint is 
reached Thus commands at a breakpomt can reference any vanable that is visible from the 
block un which the breakpoint was hit The -SDFs contain sufficient information to allow 
similar capabilities in a “cross-debugger” to test actual flight code 


The large amount >of data contained in the compiler’s outputs, especially the SDF’s and 
the object modules, permits the development of many post-compilation analysis programs 
Perhaps the best known of these is the HALSTAT program, which is used to accumulate 
global data about a program complex HALSTAT performs three major functions Verifying 
the consistency of SDF’s, pnnting statistics for each module, and giving a global dictionary 
of vanables SDF’s are consistent if all vanables shared by processes are in agreement with 
respect to such factors as data type, size, location, and so on Vanables'are also checked on 
a global basis to insure that none are referenced that have not ever been assigned, if this situ- 
ation occurs a warning message will be given Multitudinous statistics are pnnted for each 
HAL module in the program complex, giving the name of the module and the date of com- 
pilation, size statistics, and the modules’ pattern both in terms of HAL/S blocks incorpo- 
rated and location.of 'code sections The.global*symbol directory (GSD) portion of HAL- 
STAT IS a listing of every vanable used in every module of the program complex, including 
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both compool and local vanables It shows not only vanable attnbutes and locations, but 
also the cross reference data for each vanable across all modules in which it is used The 
cross reference shows both the HAL/S statements, by number, where an item is used, and 
also the way in which it is used, e g , REFERENCED, ASSIGNED, SUBSCRIPT, etc 

Additional programs have been developed to meet the needs of specific installations 
One program provides a complete disassembly listing of a HAL/S load module, which shows 
clearly the relationships between the machine code instructions and the HAL/S source 
Since the typical program complex’s load module incorporates code from both HAL/S mod’ 
ules and assembly language modules (from the runtime library), a list showing both of these 
IS essential to review the integrated system Another program provides the above disassem- 
bly capability but limits it to user-specified machme instructions, a facility that is very use- 
ful m assessing the impact of instructions that are not correctly implemented m a machine’s 
hardware, or in determining the extent and nature of operating system interfaces There is 
also a program which produces a hst of ail locations deemed to be invanant After executing 
the load module for a penod of Ume, one can dump the contents of memory and see if 
these “never-changing” memory locations have indeed changed, which would indicate a 
problem in the load module Another program is used to compile, based upon programmer 
specification of the data items desired, a list of all parameters that will be patched This list 
includes detailed information about each vanable, such as type, size, and location, to allow 
it to be modified m the correct fashion 

As more installations use HAL/S on an ever-growing number of target machines, the 
amount and diversity of the support software is certain to grow. The capabilities described 
here may and may not be present in a particular system, but like the HAL/S compiler itself, 
these utilities are written in a high order language, and as machine-independently as possible 
The functional simulation and post-compilation analysis tools have proved so valuable in the 
Space Shuttle program that they may eventually become required components of any 
HAL/S compiler system 
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Appendix C: Answers to Exercises 
Solutions 


2 lA 

a) valid, identifier 

b) valid, reserved word 

c) invalid 

d) valid, literal 

e) valid, identifier 

f) invalid 

g) valid, identifier 

h) valid, reserved word 

i) invalid 

j) valid, reserved word 

k) invalid 

l) valid, identifier 

m) valid, literal 

2 2A 

a) A X+B Y+C Z 

b) (A+B)/(C + D)/(E+F) 

c) 2**(N^1)/(2**N-1) 

d) X^«3-3 X**2+3 X-I 

e) (X-ir*3 

f) 10**X**Y 

g) (10"*X)*="Y 

h) ((V W)/(V V)) V 
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2 2B 

a) ■*’ IS not the multiplication operator in HAL/S 
Correct expression M X+B 

b) Incorrect operator precedence 
Correct expression 2 (X+1) 

c) Multiplication is represented by'a blank between two operands 
Correct expression X**(— 2 5 N) 

d) Two operators may not occur in succession 

Correct expression 5) 

e) Order of evaluation is normally from left to right 
Correct expression A G/(B D) or (A C)/(B D) 

2 3A 

DECLARE SCALAR INITIAL! 1) X_DELTA, Y_DELTA, 
declare time_delta scalar C0NSTANT(1), 

DECLARE DELAY_FAGTOR SCALAR CONSTANT! 5). 
DECLARE SCALAR, TEMPI, TEMP2, TEMPS, 

DECLARE COUNT INTEGER INITIAL! 1), 

DECLARE POINT_A VECTOR, 

DECLARE ORIGIN VECTOR CONSTANT(0,0,0), 

DECLARE TRANSFORM MATRIX INITIAL(1 ,0,0,0, 1 ,0,0,0,!), 


2A 


n 

ROOTS- 

H 

PROGRAM. 

n 

DECLARE SCALAR, 

n 

A, B, C. ROOT!, ROOTa. 

H 

READCSl A. 5, C: 

E 

a 0.5 

n 

ROOT! S t-B + IB - <1 A C) 1 / 2 A» 

E 

Z 0.5 

»' 

R0DT2 = C'B - [B *• A A C) ) / 2 A* 

H 

HHITEtSl ROOTl, RQOTe; 


CLOSE roots; 
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2B 


t1 

H 

t1 

n 

n 

E 

H 

M 

E 

M 

H 

E 

» 

H 

n 


BOUNCE - 
PROGRAM, 

declare scalar, 

HEIGHT, 

TIME INITIAUO), 

HEIGHT = 110, 

1/2 

TIME = (2 HEIGHT / 32J , 

HEIGHT = 35 HEIGHT, 

1/2 

TIME = TIME + 2 (2 HEIGHT / 32) 5 

HEIGHT = 35 HEIGHT. 

1/2 

TIME = TIME + 2 (2 HEIGHT / 32) ) 

KSITEI6) TIME. 

WRITE) 6) 4 TIME, 

CLOSE bounce; 


/^< BOUNCE 
/* BOUNCE 
BOUNCE 


2C 


EX2C* 

PROGRAM, ' 

DECLARE MASS_0F_EARTH SCALAR C0NSTANT(5 933E27), 

DECLARE PI SCALAR CONSTANT) 3 14159265), 

DECLARE RADIUS SCALAR INITIAL) 4000 160934 43, 

DECLARE PERIOD SCALAR; 

2 3 0.5 

PERIOD = ))4 PI RADIUS ) / )MASS_QF_EARTH 6.67E-03 ) ; 

KRITE16) PERIOD, 

CLOSE EX2C, 


2D 


M 

K 

M 

K 

M 

M 

E 

n 

H 

K 


M 

SOLUTION: 

M 

PROGRAM. 

H 

DECLARE SCALAR, 

M 

A. B, C, 0, E, F, X, Y, 

M 

READC5) A, B> C. □, E, F, 

H 

X = )E D - B F) / (A D - B C3, 

H 

Y - )A F - E C) / CA 0 - B C), 

H 

WRITE) 6) X, Y; 

M 

CLOSE SOLUTION, 



1 */ 
2 */ 
3«/ 
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Solutions 


3 lA 


a) Integer, value is 1. 


b) Matnx {3 by 3), value is 


1 

2 

2 


2 4 

3 5 . 

3 6 


c) 


2-vector, value is 



3 IB 


II 

H 

M 

E 

II 

H 


TRAH_HUI.: 

FROSRAH, 

OECLAKE M MATRIX CONSTAIfTtV, 7 , 6. 5i 3. £» IJ, 
» » 

WRITE! 6) n TRANSPOSECH), 

CLOSE tran_hul; 


3 1C 

a) (1+COS (2 X))/2 

b) ARCTAN(Y/X) 

c) M (R Z_DOT - Z R„DOT) SIN(PHI) - M R Z PHI_DOT COS(PHI) 

d) ARCCOS((M/R-M A/N)/SQRT(2 M E+M**2 A**2/N**2)) 

e) LOG(TAN(X/2+PI/4)) 


3.2A 


a) 1, 7. 0 


b) 


13 

14 

15 



[3 0 -3 ~6' 

12 -\ ^4 -7. 


c) DECLARE VI VECTOR(6) INITIAL(0, 1 ,2,3 ,4,5), 

DECLARE V2 VECTOR(6) INITIAL{10,1 1,12.13,14,15), 

DECLARE M22 MATRIX(2,2) INITIAL(5,6,7,8), 

DECLARE M35 MATRIX(3,5) lNlTIAL(7,4,l,-2,-5,6,3,0,-3,-6,5,2,-l,-4, 
-7), 
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3 2B 


This IS an example of how over-specifying a program may lead to inefficiency Two 
answers are given here, the first follows the statement of the problem hterally, while 
the second produces tlie same result in a different way 


M 

CO«P_OOT- 


H 

PROGRAM, 


M 

DECLARE VECTOR, 


11 

ORIG VEC INITIAL! 1, 2, 3), 1 

H 

RESULT x; 

1 

H 

DECLARE ORIG_HAT MATRIX IMITIALll, 2, 3, A, 5, 6, 7, S, 93, 

E 

- 

- 

M 

RESULT_X = OPIG_VEC 

. ORlG_MAT ; 

S 

1 


E 



M 

RESULT X = ORIG VEC 

ORIG MAT ; 

S 

2 


E 



» 

RESULT X = ORIG VEC 

. 0RIG_MAT ; 

S 

3 

»,3 

E 



M 

HRITE16) RESULT XI 


« 

CLOSE cohp_dot; 



n 

n 

H 

M 

n 

H 

E 

K 

E 

M 

n 


COMP_OOT 

PR05RAH. 

DECLARE VECTOR, 

0RtG_VEC INITIAUl, 2, 31, 

RESULT X, 

DECLARE OHIG_MAT HATRIX INITIAUl, 2, 3, A, 5, 6, 7. S, 9); 

- - s* 

HESULT_X = ORIG_VEC ORIG_HAT; 

WRlTEtS) RESULT X: 

CLOSE C0NP_00T, 
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3 2C 


WR1TE(6) V41 will output the vector 


" 21 “ 

22 

23 

- 24 ^ 


The first WRITE(6) M22 wjll output the matnx 
WRITE(6) M33 will output the matrix 
The second WRITE(6) M22 will output the matrix 


0 1 
8 8 
11 12 



3 5A 


l) 

+, <>, /, 

results scalar 

ll) 

+, - <>, 1 , 

results scalar 

in) 

+, - <>, /, ** 

results scalar 

IV) 

+,-.<> 

A 

results integer, 
results scalar 

V) 

+ - * 
<> 

results vector, 
result matrix, 
result scalar 

VI) 

< > 

result matnx 

vu) 

<>. / 

results vector. 

Vlll) 

<> 

result vector 

ix) 

+,-,<> 

results matrix 

X) 

<>, /, ** 

results matnx 


3A 


M 

M 

n 

h 

M 

E 

h 

h 


angles: 

PROGRAM, 

DECLARE VECTOR, 

VI, vs; 

READcl) VI. VS, 

KRlTEtei ARCCOSfCVl . VS) / CABVAL(Vl) ASVALfVZm; 
CLOSE angles; 
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M 

f1 

n 

H 

tt 

M 

f1 

n 

H 

n 


TRANS 

PROGRAM; 

SECURE SCALAR, 

ALPHA. XI, X2, Yl, Y2, 

PI CONSTANT(3.1A15t, 

README) XI. Tl, 

ALPHA = X7 PI / ISO, 

X2 = (XI - 5AOOO) COS(ALPHA) + CYl - 118000) SKHALPHA), 
T2 = -(XI - 5AD00) SIH(ALFHA) + CYl - IISOOO) COStALFHA); 
MHITEC6) X2, Y2! 

CLOSE TRANS; 


V4 = VECTOR$4(MS(2,2), MS(3,3), M$(4,4), M$(5,5)}, 
M22 = MS(2 TO 3, 8 TO 9), 

M34 = MS(S TO 7, 7 TO iO), 

VIO = MS(9,*), 
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Solutions 


4 lA 

a) Compound conditions like ‘A < B < C’ are not recognized by HAL/S 

b) In HAL/S, two ‘ELSE’ statements may not follow one another Section 4 2 in- 
troduces a way to avoid this problem 

c) The expression following the ‘NOT’ operator must be parenthesized 



b) Impossible the ELSE clause of C2 branches into the ELSE clause of C3 

c) Impossible the THEN clause of C2 loops around, which would require travers- 
ing a line upward 

d) 
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4 1C 


IF W < £ THEN SQ = 0, 

ELSE IF W > L THEN SQ = 0. 

ELSE SQ = 1, 

AREA = WL, 

IF SQ = 0 THEN WRITE(6) ‘NO SQUARE’, 

ELSE IF AREA < 4 THEN WRITE(6) ‘SMALL SQUARE’, 
ELSE WRITE{6) ‘LARGE SQUARE’, 


4 ID 

a) Not satisfied 
b} Illegal 

c) Satisfied 

d) Satisfied 

e) Illegal. 


f) Not satisfied 

g) (A>B) & (A<C) 

h) {Vn-S) & ((C> = D1/(D = 4)) 



The onginal code was over 300 state- 
ments, while the new code is about 
1 60 statements 

This change can be made in a valid 
HAL/S program group C is removed 
entirely from the IF statement, which 
now consists only of the section of 
the flow chart lying withm the dotted 
rectangle 
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Mote that this flowchart 



does represent a shorter program than the onginal, though it cannot be translated 
into a valid HAL/S program, as this would require^branching-into the-ELSE clause 
of the condition, which is not legal in HAL/S 


4 2B 


n 

SOLUTION. 

M 

PPOGRAti: 

M 

DECLARE SCALAR, 

M 

A, B, C, D, E, F, X, Y5 

M 

READIS) A, B, C, D, E, FI 

t1 

IF fA D - B C) = 0 THEN 

H 

KHITEiei 'NO SO LUTIOH EXISTS’ , 

M 

ELSE 

M 

do; 

M 

X = (E D - B F) / (A 0 - B ClI 

M 

Y = (A F - E Cl / (A 0 - B C), 

M 

KRITE(6) X, Y, 

M 

EHD, 

1 

CLOSE SOLUriOli 


4 2C 


IF Y < X THEN DO, 

IF Y < X - 1 THEN Y = Y + 1, 
ELSE Y = Y - 1, 

END, 

ELSE IF Y > X + 1 THEN X = X - 1, 
ELSE X - X + 1, 
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4 2D 

a) The fme from C4 to C represents a branch into the ELSE clause of C3, which is 
illegal in HAL/S 

b) The following flowchart removes the difficulty without making any change in 
the order of execution of any statements 



IF Cl THEN DO, 

IF C3 THEN D, 

ELSE C, 

END, 

ELSE IF C2 THEN C4 THEN C, 
ELSE A, 
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c) If the flowchart had been structured, it would have been awkward even to draw 
lines from both C3 and C4 to C, and the fact that there was an illegal construct 
in the flowchart would have been obvious To illustrate 



4 2E There are several possible solutions, one of which is given here 
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HAL/S code to implement the revised flowchart would be 

IF (Cl AND (NOT C3)) OR (NOT Cl AND C2 AND C4) THEN C, 
ELSE IF Ci THEN D, 

ELSE IF O C2 THEN A, 


4 3A 


a) Relational expression 

b) Boolean expression 

c) Relational expression 

d) Illegal 

e) Illegal 

f) Relational expression 

g) Boolean expression 


4 4A 


DO CASE I + \, 

ELSE SCRAMBLE = 3, 
SCRAMBLE = 4, 
SCRAMBLE = 0, 
SCRAMBLE = 5, 
SCRAMBLE = 3, 
SCRAMBLE = 1, 
SCRAMBLE = 2, 

END, 


Off- » ^ 
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Solutions 


5 lA 

Since the loop control variable is an integer, while the increment is the scalar value 
1 , on each iteration ! will be added to 1 , the resulting 1 1 will be rounded to 1 , and 
the control variable will never change That is to say, the loop will never terminate, 
so the question is unanswerable 

5 IB 

DECLARE V VECTOR(5), 

DECLARE NEG_PART INTEGER, 

DO FOR NEG_PART - 5 TO 1 BY -1 . 

IF V$NEG_PART < 0 THEN EXIT, 

END, 

Note-thaLif no component of V is-negative, NEG_PART will equal zero upon exit 
from the loop 

5 1C 


N IS equal to 14 on exit from the loop, because m DO FOR 1 = I TO N BY 2, N is 
evaluated only once, upon entry to the loop, when its value is 9 The loop will there- 
fore be executed five times, leaving N equal to 14 


5 ID 


a) The code assigns the value 2 to all the elements of A 

b) 
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5 2A 

a) The program will wnte the values 

2 INITIAL_VALUE 
4 INITIAL_VALUE 
8 INITIAL_VALUE 
16 INITIAL_VALUE 

b) DO FOR X = 1 TO 4. 

N = 2 N, 

WRITEC6) N, 

END, 

IS one possibility, 

DO FOR X = 1 TO 4, 

WRITEC6) 2**N. 

END, 

IS another, and clearly*there are many others 

5 3A 


DECLARE V VECTOR(5), 

DECLARE NEG_PART INTEGER, 

DO FOR NEG_PART == 1 TO 5 WHILE VSNEG_PART > = 0, 
END, 

IF NEG_PART 5 THEN NEG_PART = 0, 


5 4A 


If VS I = 0, the code shown will not exit with NEG_PART = 1, as it should This 
occurs because the UNTIL clause will not be evaluated for the first time until 2 has 
been assigned to NEG_EART in the DO FOR loop 








\ »• 
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5A 


FIN A L-INTTIAT 

For this solution, we take the onginal DELTA to be , and assume 

that initial < FINAL ^ 


M 

M 

H 

t1 

n 

H 

M 

II 

H 

H 

H 

K 

M 

H 

H 

M 

H 

M 

H 

H 


SIHPSDK* 

PR0GRAK> 

DECLARE SCALAR. 

INITIAL_VALUE, FIHAL_VALUE, OLO_APFROX, NEW.APPHOX, POINT; 
declare scalar. 

DELTA. EPSILOM, 

OLD APPROX, HEW_APPROX = O; 

READ(5) INITIAL_VALUE, FINAL_VALIJE, EPSILON, 
delta = <F1NAL_VALUE - INITIAL_VALUE) / S! 

DO UNTIL 1HEM_APPROX - OLD_APPRQXJ < EPSILON, 

OLD_APPROX = NEW APPROX; 

HEN APPflOX = SORTCINITIAL VALUE) + SQRTC FIKAL_VALUE » ; 

DO FOR POINT = INmAL_VALUE + DELTA TO FIKAL_VALUE - (DELTA / 2) BT DELTA;' 

HEW_APPROX = NEW_APPROX + 2 SCRT( POINT), 

END, 

NEW APPROX = NEW APPHOX'DELTA / 2, 

DELTA = DELTA / Z, 

END, 

HHlTEtS) NEH_APPROX; ! 

CLOSE SIMPSON : 


5B 


a) This program, admitted an inefficient one, will pnnt all prime numbers from 3 
through 499 

b) A solution that does not change the computations performed is 


H 

M 

H 

M 

H 

H 

H 

M 

M 

M 

« 

M 

M 


BETTER! 

PROGRAtl; 

OECURE IKTEOER, 

HUMBER, divider: 

DO FOR NUMBER = 3 TO 49P, 

DO FOR DIVIDER = 2 TO NUMBER - 1, 

IF HOO( NUMBER, DIVIDER) = D THEN 
EXIT, 

END, 

IF DIVIDER = NUMBER THEN 

WRITE($) number; 
end; 

CLOSE BETTER, 
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Solutions 


6 lA 

a) Illegal X is set to 3, but a vanable with the INITIAL attribute is not considered 
to be computable at compile time, so the declaration of LIST„ONE is errone- 
ous 

b) Legal LIST_ONE is an array of 4 scalars, value ( 2, 2, 2, 2) LIST_TWO is an 
array of 4 integers, values unknown 

c) Legal LIST_THREE IS an array of 18 scalars, value 

{ \ I i I I 1 1 1 1 1V997V7791 

d) Legal LIST_FOUR is a 9 by 3 array of 27 scalars, value 

/.I 1 1 ,2 2 2 2 2 2\ 

[ 222 '^“''^’''’) 

\9 9 9 9 9 9 9 9 9/ 

e) Illegal The ARRAY specification must precede the type specification 

6 IE 


a) 


(1 

u 

H 

II 

rt 

M 

M 

H 

rt 

H 

M 

U 

S 

H 

H 

H 

S 

E 

M 

n 

s 

H 

C 

H 

S 


EXERCISE_2. 

prograh; 

DECLARE H MATRiXtS, 5); 

declare TIHE APRAYIlOO) SCALAR :iNlTIAL<01; 

DECLARE SCALAR INITIAUOl. 

TrtIN. THAX, THEAH, SUM_OF_SQUARES, STAN_DEVJ 
declare Integer > 

I, J. K, 

DO FOR I = 1 TO 100, 

DO FOR J = 1 TO 5, 

DO FOR K = 1 TO 5, 

« = rakoom; 

J,K 

ElE), 

END, 

TIME = RUNTIME, 

I 

* #-l 

H = ti ; 

TJHE = RUNTIME - TIME J 
I X 

end; 

NON PROCESS THE HUNDRED-SAMPLES IN THE ARRAY iTIMEl 

THAX, TMEAN, TmN = TIME i 
1 



">,3 33m333 V1333333333333333 ^ 3333 (A3fil33 r>n0 33 V)3 M3 M3 «3 M33 
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QO FOR 1 = 2 TO 100. 

Tt'*A!i » TMEAH + TIME . 

1 

IF Tin£ ^ ttWX TWEM 
I 

JtUX = TIKE , 

I 

IF TIME < TniM THEH 

1 

TttIN = TIKE I 
I 

EhQ. 

TKEAN 7 171EAN / 100^ 


CGKPUTE STAIJDAftO OSVIATIOH 


SUM OF SQUARES s 0. 

00 FOR I = I TO IQO. 

Z 

sw OF_SaUARES = SUH„0F_5QUAReS ♦ ITIME - THEAH) , 

I 

EKD. 

S7AW.DEV s SQRKSUtl 0F_SQUA1JES / 100>» 

K3ITE(6J fllN « THIN, » KEAH s , TKSAHi ' MAX = ' > THAXt ' STANDARD DEVIATION s », STAH_OEV, 
CLOSE gX€»CISE„2^ 


gXEPCISE_i 

DECLA<^E n MATRIXES. S) 
declare tike scalar IKETIAUO). 
declare scaur INITIALIO). 

TMIH, TKAX» TKEAN » SLSM_OF^SCUARES» STAN_OEV, 

DcCURE INTEGER. 

Ir Ji K. 

TMEAKt SUM_0F_S3UARes = 0, 

TMAX = -1. LESS TttAN ANY POSSIBLE TIME VALUE » 

TniN = 1900. /* GREATER TftA.U ANY FEASIBLE TIME VALUE » 

SO FOR I B 1 TO lOOi 
00 fCR J = 1 TO Sr 
DO FOR K s 1 70 5. 

M = RAMDOH. 

J.K 

Eh'O 

END, 

TIKE = PUllTIKEr 

M «>1 

M = K . r 

TIKE = RUHTIKE - time, 

TKEW-r - TNEAff + TIME, 

2 

SUK_0F_S0UARES - SUK„OF_SQUARES ♦ tTIKEI . 

IF TIME > TKAS THEN 
ThAX s TIME, 

IF TI“E < TMIN THEN 
7KIW = TlKEr 

EHOr 

TKEAN = TKEAN / 100. 

2 

STAH^DEV a SORTI tSUK_CF_SOl|ARES ^ lOOJ - TrtSAM ), 

URnE(6) HIM = », TKIH, HEA?< = *, TKEAN, KA^ = THAX, STANDARD DEVIATION = ■, STAN DEV, 
CLOSE EXERCISe_E, 
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H 

EXAMPLE 2- 

H 

PROGRAM, 

M 

BECLARE 5YR0 IMPUT ARRAY! 12) INTEGER IHITIALtOi; 

H 

DECLARE ATT RATE ARRAYtlE) SCALAR; 

h 

DECURE SCALE ARRAY! 31 C0N5TANTC 013, 026, 013), 

M 

DECLARE BIAS SCALAR INITIAL! 57 296), 

M 

DO FOR TEMPORARY I = 0 TO 9 BY 3, 

H 

DO FOR TEMPORARY J = 1 TO 3, 

K 

ATT_RATE = GYRO INPUT SCALE t BIAS, 

S 

IyJ I4J J 

M 

END, 

H 

END. 

H 

CLOSE EXAMPLE Zi 


6 ID 


M 

M 

M 

M 

f1 

S 

n 

M 

S 

t1 

H 

S 

H 


E5fAMPLE_<iA! 

FROSRAHT 

DECLARE A ARRAY! 51 SCALAR; 

DECLARE TEMP SCALAR; 

temp = A t 
S 

DO FOR TEKPORAHT T = A TO 1 BY -1, 
A = A , 

T+1 T 

END, 

A = temp; 

1 

CLOSE EXAMPLE_AA, 


6 2A 

a) T 

b) F 

c) T 

d) T 

e) T 

f) F 

g) T 

h) T 

I) F 

J) T 


k) T 

l) F 

m) F 

n) T 

o) F 
P) F 

q) T 

r) T 

s) T 

t) T 


6 2B 


A Single arrayed statement takes the place of one or more loops and a statement to 
perform the same operation on each array element that the arrayed statement per- 
forms on the entire array If the programmer writes these loops, loop vanables must 
be declared, correct loop limits must be coded, and such loops must be nested if the 
array is of two or more dimensions This means extra work for the programmer, and 
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more complicated and potentially incorrect or unreadable code If an arrayed state- 
ment IS coded, the compiler does the bookkeeping, and may even be able to produce 
more efficient code, since loop variables will not need to be saved for later reference 



6 3B 


S = XS(3 1,3), 



S - YS(3,1 3), 



S = ZS(7 3), 




S = AS21 , 




MS{1,2 TO 4) 

_ 

XSC2 3,*), 


MS(1,5 TO 7) 

= 

XSC3 1.*). 

1 from X 

MS(1,8) 


XS(3 2,1), j 

1 

MS(1,2 TO 4) 

= 

Y$(2,3 *), 1 

1 

M$(l,5 TO 7) 

= 

Y$(3,l *), 

\ from y 

MS(1,8) 

= 

YSD.2 1), J 

1 

MS(1,2 TO 4) 

= 

Z$(6 ^), 1 


MS(1,5 TO 7) 

= 

ZS(7 *), 

1 from Z 

MS(1,8) 


ZS(8 1), J 


MS(i,2 TO 8) 

= 

A$(16 TO 22), 
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63 lA 


n 

n 

fi 

n 

K 

E 

M 

S 

M 

M 

E 

M 

S 

K 

K 

M 

M 

H 


6 4,IA 

DECLARE TEMP VECTOR(27), 


TEMP = VECTORS27CX), 

M$(l,2 TO 8) = TEMP$(16 TO 22), 

TEMP == VECTOR$27(Y), 

MS(1,2 TO 8) = TEMPS(16 TO 22), 

TEMP = VECTORS27(Z), 

MS(1,2 TO 8) = TEMP$(16 TO 22), 

The assignment from A is already quite simple 



PRIHESt 

PR05RAM, 

REPLACE LIMIT BY "lOO”? 

DECLARE PRIME ARRAY! LIMIT) BOOLEAH IHITIALlTfiUE > f 
DO FOR TEMPORARY I = 2 TO LIMIT, 

IF PRIME THEN 
I* 

do; 

DO FOR TEMPORARY J = 2 I TQ LIMIT BY I, 

PRIME = false; 

J: 

EHD, 

WRITEC6) i; 

end; 

END, 

CLOSE primes; 




(A 3 
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64 IB 


ARRAY(2,3) INTEGER 

b) ARRAY(12) INTEGER 

c) ARRAY(3) SCALAR 


d) 

e) 

n 


VECT0R(6) 


( 


1 2 3 


) 


1 2 3' 

(1 2312312312 3) 
(111) 


ARRA'Y(2;6) INTEGER 
MATRIX(3,3) 


12 3 12 3 
[j 2 3 ! 2 3^ 


1 n 
1 1 
1 1 


6A 


n 

M 

n 

M 

n 

n 

i1 

S 

H 

H 

H 

H 

h 

5 

M 

S 

rt 

s 


M 


rEQiAt] 

DECLARE INTEGER t 

TEMP* 5NAlL^STi 

DECLARE VALUE LIST APPAYC25) INTEGER IKITIALCTS, 87, 65, 5 ^, ^3* 32, 21, 12* 23, 3^1* A5, 56, 67, 
79. 123, 23^, 4S6, 567* 678. 76^, SR6. ^67, 876 765^ 

OD F09 X'= a TO 13 
S^IALLEST = X, 

DO FOR TEMPORARY J = X 1 TO 25, 

If value_list < value list iheh 

J ^ SMALLEST 

S'iALLEST = J, 

EMS, 

IF SMALLS5T -= X THEN 

00 , 

TCHP = VALUE^LIST , 

SMALLEST 

VALOE^LIST = VALITE^LIST 7 

SMALLEST X 

VALUE.LIST = 7EMP, 

y 

EHD* 

END. 

kRITECSI ’MEDIAN * * VALUE LIST , 

13 

CLOSE MEDIAN. 
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6B 


DECLARE TIMING_DATA ARRAY(4,26) INTEGER INITIAL(O), 
DECLARE I INTEGER, 


DO FOR I = 1 TO 25, 

TIMING_DATA$(1 TO 3,1) = TIME_VALUESS(»,I), 
TIMING_DATA$(4,I) = SUM(TIM_VALUESSC' J)). 
END, 

DO FOR I = 1 TO 3, 

TIMING_DATAS(I,26) - SUMCTIM^VALUESSd,"")), 
END, 
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7 lA 


2 

4 


Soludons 


7 IB 

line 4 the outer block may not call procedure PR0C2, which is nested with 
PROCl 

line 5 the variable Y is known only within the scope of procedure PROCl 
line 8 Procedure PROCh cannot call itself 


7 1C 

Block May be invoked from block(s) 

2 1,3,4,5,6 

3 1,2 

4 3,5.6 

5 3,4 

6 5 


7 2A 

Move the code block defining ALMOST_EQUAL from-the end of the program to a 
point before ALMOST_EQUAL is invoked, i e , immediately before or after the 
block MASS 


7 2B 


a The function RANDOM returns a scalar X with uraform distnbution in the range 
(X X <1 The function ROLL uses the implicit scalar-to-integer conversion sup- 
plied by HAL/S, with implied rounding Its results may be descnbed by a table 


a random value in the range 
0< X < I 
1< X <3 
3< X < 3 
5< X <7 
?< X <9 
9< X <1 


yields an amount of 

1 

2 

3 

4 

5 

6 


Thus, It IS clear that the probabilities that ROLL will return I and 6 are 1/10, 
while the probabilities of 2,3,4, and 5 are 1/5 
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b 


H 

H 

M 

M 

M 

H 

H 

n 

M 

M 

H 

K 

11 

t1 

M 


FlX_Rt)LL. 

Pi;OGRAH| 

DECLARE COUNT IKTESER INIT1ALCD)1 
DECLARE I INTEGER » 
roll: 

FUNCTION INTEGER, 

RETURN TRUNCATE(6 RANDOM +13, 
CLOSE, 

DO FOR I = 1 TO S; 

DO UNTIL ROLL + ROLL = 7, 

COUNT = COUNT + 1, 

END; 

END, 

MRITE(6) COUNT, 

CLOSE FIX ROLL, 


7 2C 


M 

M 

M 

H 

M 

M 

H 

« 

N 

M 

t1 

M 

M 

M 

H 

H 

H 

M 

K 

M 

M 

S 

M 

S 

« 

M 


find_gcds: 

program: 

DECLARE ARRAY! S3 INTEGER i 
X » Y > 

DECLARE I integer; 

GCD 

FUNCTION! IX, 123 INTEGER, 

DECLARE INTEGER, 

II, 12, X, Y, r; 

X = 12; 

Y = ii; 

DO hhile X o; 

R = REHAINDERIY, X)| 

Y = x; 

X = r; 
end; 

RETURN ABS(T>; 

CLOSE CCD, 

READ(S) [X], [Y]> 

00 FOR t = 1 TO 5; 

IF GCD(X , Y 3 -= 1 THEN 
1 I 

HRITEtG) X , Y , GCDIX , Y 3? 

II II 

END; 

CLOSE FIHO_GCOS, 
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7 3A 


K 

rt 

M 

II 

n 

M 

n 

rt 

M 

11 

Ji 

ji 

H 

K 

K 

K 

K 

H 

H 


FIK_R0L1.- 

PROGRAM, 

DECLARE COiniT ItHECER IHITIALCO); 
DECLARE IKTEGER, 

I, HOLLl> ROUe» 

ROLL 

PROCEDURE ASSE6MCA); 

DECLARE A INTEGER; 

A = TRUKCATEfO RAltDDM * 1); 

CLOSE roll; 

DO FOR 1 = 1 TO s; 

DO UNTIL ROLLl + ROLLS = 7; 
COUMT = COUHT + 1; 

CALL ROLL AS5I6W ROLLl )i 
CALL ROLL ASSIGHC ROLLS), 
END, 

EHO; 

tiRiTEt&j coutrr; 

CLOSE F1X_R0LL5 


The solution in which ROLL )S a function is clearly preferable, because the code to 
invoke ROLL is much simpler in that case 

In general, when a block is to produce as output a single value of any HAL/S type, 
the FUNCTION form will tend to produce more comprehensible code than the 
PROCEDURE form This is because the calling sequence for a function mirrors 
closely the mathematical notation for a function, and because often (as in this ex- 
ample) use of the functional form avoids the introduction of "dummy” vanables 
with no mtnnsic meaning to the algorithm being implemented In the procedure 
form, these dummy vanables must be used as ASSIGN parameters 
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7A 


DHOPi 

prosrak; 

DECLARE SCAUR. 

DROP„TIME, BOUHCE TIME. 

DECLARE SCALAR INITIAL* 0 I , 

TIME, H0RIZ_DI5T, 

DECLARE HEIGHT SCAUR INITIALdlOJ; 

DECLARE HORIZ_SPEE0 COKSTAHTC^t ) ; 

DECLARE G Ca*!3TANTt32 1 J 
DECLARE I INTEGER, 

REPLACE WMBER_OF_BOUNCES BY "ID"; 

TIME TO DROP 
FUNCTlONtHl, 

DECURE H SCAUR, 

RETURN SQHr(E H / 6); 

CLOSE TIME_TO_DHOP, 

HORIZ_MOTION 
PROCEDURE* T> A3SIGNIH), 

DECURE SCAUR, 

T, H. 

H = H ♦ HCRIZ_SPEED T5 
CLOSE HORIZ_MOTIOH; 

BOUrJCE 

PRDCEDURE ASSIGN! H, T)j 
DECURE SCAUR, 

H, t; 

H = 75 h; 

T = SQRT<2 H / G3; 

CLOSE BOUNCE; 

DO FOR I = 1 TO NUMBER_OF_BOUNCES; 

DHOP_TIHE = TIME„TO_OROP( HEIGHT); 

CALL HOHIZ_MOriOtJ(DROP TIKE 3 ASSIGN* HORIZ_DIST ) , 

TIKE = TIME + DR0P_T1ME, 

WRITE*6) *BOUHCE‘, I, ‘TIKE’. TIKE. 'HORIZONTAL DISPUCEHENT' , HOHIZ DIST5 
CALL BOUNCE ASSIGN* HEIGHT, BDUNCE_TIHE3 , 

CALL HORIZ_MOTI(3N(BOUNCE_TIKE3 ASSIGN! HOHIZ DIST3, 

TIKE = TIKE ♦ B13UNCE TIME; 

END, 

CLOSE drop; 





3t333S3aa33 = 3it33:3ctn3:3aasr?5f3:i 
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7B 


SIMPSON: 

PR06RAM; 

DECLARE SCALAR, 

INITIAL VALUE, FINAL VALUE, OLD_APPROX, NEM_APPROX, POIHTi 
DECLARE SCALAR, 

DELTA, EPSILQN, A, 8, C, D; 

POLT 

FUNCTIONtX) scalar; 

DECLARE X SCALAR, 

3 e 

RETURN AX +BX *CX+D, 

CLOSE poly; 

OLD_APPHOX, NEW_APPHOX = 0. 

READC51 A, B, C, D. IKIT1AL_VALUE, FIHAL_VALUE, EPSILON; 

DELTA = (FIHAL_VALUE - IHITiAL_VALUE » / 5; 

DO UNTIL (NEW_APPROX - OLD_APPHOX) < EPSILON; 

OLD APPROX = NEH APPROX; 

NEU_APPROX = POLYtlNITlAL_VALUE> + POLY! FIHAL_VALUE J , 

DO FOR POINT = INITIAL_VALUE + DELTA TO FIHAL_VALUE - (DELTA / 2) BY DELTA; 

HEH_APPROX = HEH_APPROX + 2 POLY( POINT), 

END, 

NEHI_APPROX = NEW.APPHOX DELTA / 2; 

DELTA s DELTA / 2, 

END. 

URITE(6) NEU APPROX! 

CLOSE SIMPSON; “ 
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1C 


H 

H 

M 

H 

H 

M 

H 

« 

n 

H 

H 

H 

H 

M 

H 

H 

H 

rt 

H 

ti 

K 

H 

H 

H 

H 

rt 

M 

H 

H 

» 

H 

H 

H 

H 

H 

M 

rt 


DROP 

PftOSRAHS 

DECLARE SCALAR, 

.drop_time, bounce_time; 

DECLARE SCALAR lHITIALt0 3, 

TIME, horiz_dist; 

DECLARE HEIGHT SCALAR IMITIALtllO } ; 

DECLARE HORIZ_SPEe0 COHSTANTC'H, 

DECLARE G CDKSTAMTt 32 ) , 
declare I IHTEGER, 

REPLACE HUMBER OF_BOUNCES BY “10"; 

TIME TO drop 
FUHCTIOHCHJ; 

DECLARE H SCALAR; 

RETURH SGRTta H / GJ; 

CLOSE TIME_TO_OROP; 

BOUNCE 

PROCEDURE ASSIGNfH, T), 

DECLARE SCALAR, 

K, t; 

H - .75 H, 

T s 5GRT(2 K / G), 

CLOSE BOUNCE ; 

DO FOR I = 1 TO HUM0ER_OF BOUNCES - 1, 

OROP.TIME = TIME_TO_DROPtHEIGHT>; 

HORIZ DIST = HCRIZ DIST + HOHIZ SPEED DHOP^TIMEf 
TIME = TIKE + ORCP_TIHE, 

KRUE(6J ’EOUHCe'. I, 'TIME', TIKE, 'HORIZONTAL DISPLACEMENT', KORIZ^OIST, 
CALL BOUNCE ASSIGNCHEIGHT, BOUNCE_TIKE J i 
H0Rir_DI5T = K0R1Z_PI5T + H0RIZ_SPEEO 50UHCE_TIHE, 

TIME = TIME + 80UNCE_TIME, 

END, 

DfiDP_TIHE = TIME_T0_DR0P< HEIGHT); 

HOR1Z_01ST = HORir_DIST + HOSIZ„SPEED DROP_TIME, 

TIKE = TIME ♦ DROP^TIME, 

KRITE(6) 'BOUNCE', I, 'TIME', TIME, 'HORIZONTAL DISPLACEMENT* , HORlZ_DIST; 
CLOSE DROP, 
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Solutions 


8 lA 


There are several advantages to naming I/O channels 

1) If several channels are in use, giving them descnptive names makes it clearer 
what any particular I/O statement is doing 

2) References -to REPLACE macros are collected in the cross-reference table, allow- 
ing all I/O statements to be found quickly and easily 

3) If it becomes necessary to reassign a channel, the channel number need only be 
changed once, in the REPLACE statement, and all I/O statements, referencing 
that channel will automatically be changed 

8 IB 


The expressions in the list are evaluated one by-one, and data items converted to 
character string standard external format These strings are then assembled into lines 
and transmitted in an implementation dependent fashion to the output device asso- 
ciated With the channel number specified in the WRITE statement 

Any legal HAL/S expression may appear m a WRITE statement There are no restric- 
tions whatsoever on output 


8 IC 

a) 1 and 5 

b) 1,3, 4, and 5. 

8 2A 

a) First, the three matrices in MAT_ARRI will be printed, then the three matrices 
in MAT_ARR2 

b) The easiest way to do this is with loops 

DO FOR TEMPORARY 1 = 1 TO 3, 

DO FOR TEMPORARY J = 1 TO 3, 

WRITE(6) MAT„ARR1S(I I,*),TAB{20),MAT_ARR2S(I 1,=*), 

END, 

WRITE(6) SKIP(2), 

END, 

It could also be done with a single WRITE statement 

WRITE(6) MAT_ARR1$(I I,*),TAB(20).MAT_ARR2S(1 1,*),SKIP(1), 
C0LUMN(1),MAT_ARR1S(1 2,*),TAB(20),MAT_ARR2S(1 2,*),SKIP(]), 
C0LUMN(1),MAT_ARR1S(I 3,-*),TAB(20),MAT_ARR2S(l 3,*),SKIP(3), 
COLUMN(l),MAT_ARRIS(2 1 ,’<),TAB(20).MAT_ARR2S(2 I,’'),SKIP(1), 
COLUMNO),MAT_ARR1S(2 2,*),TAB(20)>IAT_ARR2S(2 2,^),SKIP(1), 
C0LUMN(1),MAT_ARR1S(2 3,^).TAB(20),MAT_ARR2S(2 3,*^),SKIP(3), 
C0LUMN(1),MAT_ARR1S(3 1 ,*),TAB(20),MAT_ARR2S(3 1,*),SKIP(1), 
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C0LUMN(1),MAT_ARR1S(3 2,*),TAB(20),MAT_ARR2S(3 2,*),SKIP(1), 
C0LUMN(D;v1AT_ARR1S(3 3/),TAB(20),MAT_ARR2S(3 3,«), 


8 2B 

1) b 

2) a, c 

3) d 

4) c (paged files only) 

5) a, e 

6) none of a-e, ovemdes the default SK1P( 1 ) 

7) c 

8 3A 

a) INTS = (8,7,7), SCALS = (-1,225,4) 

b) INTS = (0,1,1), SCALS = (7 2,0,0) 

c) INTS = (2,1,3), SCALS = (2 49,0,2 51) 

8 3B 


Change the READ statement to 

READ(5) COLUMN(8),INTS,SKIP( 1 ) ,COLUMN(8), SCALS , 


8 4A 


All are legal character subscnpts Only a, b, c, and e are legal vector subscnpts, all 
the others have partition sizes not computable at eompile time 


8 4B 


The output will be similar to this 

ABC ABCABC 
123AB BC4S6 
1223ABC456 
ABCABC ABC 


8.4C 


All the expressions listed are true 


8 5A 


Only character stnngs may be read using the READALL statement 
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S5B 


All characters on the input file are retneved by the READALL statement, no matter 
what they are Character strmgs to be input using the READ statement must be sur- 
rounded by single quotes, which are not placed into the target vanable Further- 
more, single quotes represent themselves in READALL input, while they must be 
represented by a pair of quotes m succession m READ input 


8A 


H 

M 

n 

M 

t1 

M 

h 

K 

H 

M 

H 

n 

E 

K 

E 

H 

H 

E 

H 

H 

E 

M 

S 

H 

E 

H 

n 

E 

« 

E 

M 

S 

E 

M 

5 

E 

K 

5 

M 

n 


reverse: 

PROGRAM ; 

DECLARE AHPAYC5) CHARACTERlS). 

CHAR ARRl, CHAR ARR£, 
DECLARE X INTEGER! 

REV: 

FUNCTIONtCJ characterisi; 

OECURE C CHARACTER(»j; 

□ECURE CHAPACTERIS), 

CTEHP, CHAR REV, 

DECUHE INTEGER, 

I, L, 

» » j 

CHAR_REV, CTEHP = C, 

IF CTEHP = ■ ■ THEN 
RETURN 

L = LENGTH! CTEHP 1, 

DO FOR I = 1 TO L, 

> I 

CHAR_REV = CTEHP , 

I L+l-I 

end: 

, 

Return char_rev, 

CLOSE REV, 

* > 

REAIM53 tCHAR ARRll, [CHAR ARR£l; 
00 FOR X = I TO Sr 

> t 

CHAR_ARR1 = TRimcHAR ARRl 1; 
X “ X- 


> I 

CHAR_ARR£ = TRIHtCHAS ARR2 ), 
X' ■ X 


WRITE! 6) C0LUMN15), REVCCHArIaRHI ), COLUMN! 15), REV! CHAR ’ahH2 1, 

X: ” X: 

END, 

CLOSE REVERSE, 
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8B 


K 

H 

M 

M 

M 

)1 

E 

K 

K 

H 

E 

H 

S 

E 

(1 

5 

« 

H 

t1 

M 

« 

E 

n 

M 

E 

rt 

« 

E 

M 

H 

M 

E 

n 

6 

e 

II 

s 

K 

H 

H 

H 

H 

H 

E 

H 

E 

rt 

s 

E 

H 

5 

rt 

H 

H 

6 
rt 
E 
H 
M 
H 
M 


DECOnE_NAMES: 

PROGRAM, 

declare names ARRAYtSO, 2) CH ARACTEfi ( 15 > , 
DECLARE INLINE CHARACTER! 80); 

DECUHE 1 integer; 

REPLACE NO_OF„HAMES BY "BD”; 

INLINE = *■, 

DO FOR I = 1 TO NO OF NAMES; 

CALL GET_NAMEtIl, 

k 

IF NAMES - 'S' THEN 

I,£*l 


WRITECS) NAMES II ' ' 11 NAMES j 
I, IS i,e 

END, 

GET^HAliE- 

PROCEDLIRE(N), 

DECLARE INTEGER, 

N, k: 

» 

IF INLINE = ” THEN 
CALL GET_LINE, 

> 

K = INDEXCIHLIHE, ' , ' 

IF K = 0 THEN 

> 

CALL FIR5T„AH0_LAST( inline, K), 

ELSE 

DO, 

9 

CALL FIRST_AND_LASTCIHLINE , K) , 

1 TO K-1 


INLINE = TRltlt INLINE ). 

K+1 To S 

ENO; 

FIRST AND_LAST 
PROCEDORECC, N), 

DECLARE C CKASACTERt » >, 

N INTEGER, 

I INTEGER, 

I = INDEXCC, ' 'I, 

* y 

NAMES = C , 

N,l. 1 TO I-l 


, , 

names = c ; 

N,£- Itl TO S 

CLOSE FIRST_ANO_LAST; 
GET_L1NE: 

PROCEDURE, 

READALLC5) INLINE, 

INLINE = TRIMC INLINE). 
CLOSE GET_LINE, 

CLOSE GET_NAME, 

CLOSE DECODE_NAMES. 


OWGWAC page is 

QE £ooa QUAUja; 
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HUP© ER jrO_EHGl.lSH 
PROCHA*!* 

DECLARE IHTCCER^ 

T, 

DECLARE CHAPAC7ER(30], 

LEFT^PART^ RIGHT^PART. 

declare TEKS ARRAY(9I CKAHACTER17I INlTIALt'TEM' I "Tt.EHTY% ■THIHir* i 'FORTY'i FIFTY , 'SIXTY , 
SEVEllTY'^ eighty*. •MI^ETT’^, 

DECLARE TEEMS APRAY(9I CHA^ACTERl^k IMlTIALt ‘ELEVEN » 'THHLVE'> 'THIRTEEH'. 'FOURTSEII*, ‘FIFTEEK 
, smEEH , 'SEVEHTEEH*. ’ EICHTciM' . HIMETEEM ). 

declare Units ARRAYC 9) CHAR ACTERCSJ IMITULC 'CHE'. TWO , 'THREE*. FOUP*. FIVES 'SIX'. 'SEVEH 
, 'EIGHT . 'MINE ^ 

REA0C5) Kr 
IF N s 0 THEM 

UFT_PART = '•; 

RIGHT PART s 'ZERO . 

END, 

ELSE 

D0» 

H « DIVfM. 100). 

T := DIV(REHAIt©ER<H) 100). ID I » 

U « PEriAINDEROli IDS 
IF K > 0 THEM 

LEFT* PART s UNITS It ' HUMORED '. 

H 

ELSE 

] 

LEFT PART = * . 

IF U = 0 THEM 

y » 

RIGHT_PART - TENS . 


ELSE 

00 > 

IF T > 1 'THEN 

RIGHT PAST = TENS II -'ll UHITS , 
T U 

else if T = 1 THEM 

BIGHT PART = TEENS . 

U 


• y 

fiIGHT_PART = UNITS . 

U 

EKD. 

END. 

■ f 

KR1TEI6) LEFT PART J| RIGHT PART, 
CLOSS^ 
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Solutions 

9 2A 

STRUCTURE X 
1 Al, 

2 Cl VECTOR, 

2 Dl MATRIX, 

I Bl, 

2 El VECTOR, 

2 FI MATRIX, 

STRUCTURE Y 
1 A2 SCALAR. 

1 B2, 

2 D2 ARRAY(5) VECTOR, 

2 E2 ARRAY(5) VECTOR, 

I C2 SCALAR, 

9 2B 

a) TEST_DATA 



VI V2 B VI VI V2 B VI 


b) TEST_DATALMA 
TEST_DATA LM B VI 
TEST_DATA.LM B.V2 
TEST_DATA LN AB 
TEST_DATA LN A VI 
TEST_DATALNC 
TEST_DATA I J A 
TEST_DATA.I J B VI 
TEST_DATA IJ B V2 
TEST_DATA 1 K A B 
TEST_DATA.l K A VI 
TEST DATAIKC 



4 
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c) STRUCTURE DATA 

1 L, 

2 M, 

3 A INTEGER, 

3 B, 

4 VI VECTOR, 

4 V2 VECTOR. 

2 N, 

■ 3 A, 

4 B INTEGER, 

4 VI VECTOR, 

3 C SCALAR, 

1 I, 

2 J, 

3 A INTEGER, 

3 B, 

4 VI VECTOR, 

4 V2 VECTOR, 

2 K, 

3 A, 

4 B INTEGER, 

■ 4 VI VECTOR, 

3 C SCALAR, 

d) All of the assignments'shown are legal 


9.2C 


STRUCTURE MINOR 
I V VECTOR. 

1 T SCALAR, 

STRUCTURE MAJOR 

1 XI MINOR-STRUCTURE, 

I X2 MINOR-STRUCTURE, 

I X3 MINOR-STRUCTURE, 

I X4 MINOR-STRUCTURE, 

I X5 MINOR-STRUCTURE, 
DECLARE DATA MAJOR-STRUCTURE, 


READC5) DATA, 

CALL PROCESS(DATA), 

The procedure PROCESS must be modified to accept a MAJOR-structure as input 
instead of the ARRAY(2) it originally took 
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9 3A 

STRUCTURE MINOR 
1 V VECTOR, 

1 T SCALAR, 

DECLARE DATA MINOR-STRUCTUREfS), 


READ(5) DATA, 

CALL PROCESS(DATA), 

Now PROCESS must be changed to accept a 5-copy MINOR-structure as its aigu- 
ment The data is still read in the same order as before 

9 3B 


a) 

A$(25,) or AS25 

type 

A I -STRUCTURE 

b) 

A BS(*,3) 

type 

ARRAY(IOO) INTEGER 

c) 

AC$(10 TO 20.) 

type 

ARRAY! 11) SCALAR 

d) 

AD$(75 TO 85,) 

type 

ARRAY(Il) VECTORC6) 

e) 

ADS(M) 

type 

SCALAR 


9 3C 


K 

M 

n 

n 

M 

n 

M 

M 

E 

t1 

M 

M 


KEAll: 

PROGRAM, 

STRUCTURE PERSON: 

1 SS INTEGER GOUeLE, 

1 SALARY SCALAR, 

1 UOB COSE INTEGER, 

1 PHAME CHARACTER (Sail 
OECUHE COUPANY RERSOH-STRUCTUREdOOl, 
+ 

READ153 {COHPANYli 

WRITEtGJ SUHUCGrtPAHT SALARY}! / lOO; 
CLOSE MEAN. 


9 4A 


a) No X E F has the RIGID attnbute, Y does not. 

b) Yes 

c) Yes. 

d) Yes 

e) Yes 
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9 4B 


a) 

The 20th copy of A 

type 

A-STRUCTURE 

b) 

The lOth and 1 Ith copies of A 

type 

A-STRUCTURE(2) 

c) 

C from the first copy of A 

type 

INTEGER 

d) 

D from the 4th-6th copies of A 

type 

ARRAY(3) VECTOR(6) 

e) 

Tlie 4th=6th components of D 
from all copies of A 

type 

ARRAY(20) VECTORC3) 


Structures allow the programmer to organize data of mixed types into one logical 
unit that may be input, output, assigned, and passed as a parameter When a struc- 
ture js passed as a parameter, overhead is saved, as all the components of the struc- 
ture became available to the called procedure or function without being passed.in- 
dmdually as separate parameters 

The use of structures also allows the transfer of an aggregate of assorted data m a 
single FILE I/O statement In I/O contexts, multiple-copy structures are particularly 
convenient for reading or writing large blocks for the sake of efficiency 



(ASM «3m3ni3 u» zcm W3ni «3 tfi 
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9B 


« 

tt 

M 

rt 

M 

ri 

» 

tt 

« 

ti 

n 

n 

n 

n 

n 

» 

n 

H 

H 

S 


E 

K 

S 

« 


BEST 0H5 
Pi^CGftAn» 

STRUCTURE ITErt^DATA 
X V£C VECTORf 
1 TIHETAG SCALAR^ 

STRUCTURE UMIT^DATA 

1 ACCSL iteS.oata-structupe* 

1 VSL ITEH DATA-STRUCTUPEr 
1 PITCH 1T?H_0ATA-STPUCTUPE, 

STRUCTURE BEST 

3. B5ST_ACCEt ITEJI.OATA-STRUCTURE, 

1 BEST_VEL ITETI^DATA-STRUCTUREr 
1 BEST.PITCK ITEM^DATA-STRUCTUREj 
DECLARE BEST_DATA BES7-57RUC7UPE, 

DECURE SYSTEfl DATA UNIT DATA-S7RUCTUREC33, 

HIODLE 

FUNCTlONtOFU J ITEH.OATA-STRUCTURE » 

DECURE OFU ITeK_DATA-SrfiUCTUPEr3). OA^A FRCH UNIT */ 

IF OFU TIHSTAG * MIDVAUOFU TIHETAG . DfU TIHETAG , OFU TlnETAG ) THEM 
i; 1, 2, 3| 


RETURN DFU i 

1. 

IF DFU TIftETAG = MIOVALfDFU TIMETAG . DFU TIMETAS » OFU TinETAG ) THEM 
2» 1* 2k 3i 


RCTURM DfU 3 

2, 


RETURM DFU » 

3p 

CLOSE HIOOIE, 

+ 

READtSJ (SYSTE«_DATA}, 

f + ♦ 

BEST_DATA BEST^aCCEL = niD0LE< {sYSTEtl^DATA ACCEL> )» 


♦ ♦ ♦ 

BESt_DATA BESr_VEL = MIODLEI {SYSTEtl^OATA VELj }, 


* * * 
BEST.OATA BEST_PITCH * MIDDLE! {SVSTEH^DATA PITCH} 

CLOSE BEST^CMEp 
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Solutions 


10 lA 


Control falls through to the statement following the ON ERROR statement, unless 
the ON ERROR statement has 

1) caused a GO TO or RETURN statement to be executed, or 

2) specified'SYSTEM or IGNORE, in which case either control returns to the pro- 
gram at the point where execution was interrupted, or the program terminates, 
depending on the particular error 


10 IB 

If the error should occur after control has left the loop, an unexpected transfer of 
control into the loop will occur, potentially causing disastrous results since loop van- 
ables may have unusual values, and TEMPORARY variables may even have been re- 
defined since leaving the loop 

The compiler normally enforces a ban on branching into DO END groups In this 
case where the compiler is unable to do so, the programmer should follow the same 
course 

10 IC 

1) SYSTEM If no ON ERROR statement is active for the current error, or if the 
active one is ON ERROR SYSTEM, the standard action, if any, is taken and an 
error message is sent 

2) IGNORE If an ON ERROR IGNORE statement is m effect for the error in 
question, the standard fix-up is taken and no error message is sent 

3) If an ON ERROR statement defining a user action is m effect for the specified 
error, then the user code receives control without possibility of returning to the 
point where the error occurred No error message is sent 

10 ID 


Error Specification 

ERROR$(m n) 

ERRORSfm ) 
or 

ERRORS(m) 

ERROR 


Precedence 

1 first 

2 

2 

3 last 
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10 2A 

An error handler may be deactivated 

1 ) when flow of control leaves the block containing the handler^ 

2) when it is superseded by another error fiandler, and 

3) when an OFF ERROR statement of the same form is executed 

10 2B 

a) All three error handlers arc still active both OFF ERROR statements were ig- 
nored 

b) ON ERRORSCl 1) IGNORE, and ON ERRORS(2 ) IGNORE, are still active 
The first OFF error statement cancelled the first ON ERROR statement, and the 
second had no effect 

103A 

The SEND ERROR statement is used 

1) to simulate the occurrence of system-defined errors for testing, and 

2) to allow the user to define errors and write error handlers for them 

10 3B 

When an applicable eiror handler is found in the local block, higher level blocks need 
not be searched, as handlers in the calling blocks are overridden by the local handler 

iOA 

a) No message 

b) Message 

c) No message 

d) No message 

e) Message 

f) No message 

g) No message 

h) Message 

i) No message 

j) Message 

k) Message 

l) No message 
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Solutions 


11. lA 

1 If several programmers are working on a single large project, it will probably be 
convenient to assign them separately-compilable sections of the program com- 
plex 

2 In a multiprogramming environment where several PROGRAMS are to run con- 
currently, there is no way to compile them all m a single compilation step, so a 
program complex must be created 

3 If the overall structure of a program is fixed, but small sections are under-going 
revision, separating those sections out as COMSUBs may allow those parts to be 
revised and recompiled without requiring recompilation of the entire program 

li IB 

Just as if the COMSUB were an internal procedure, the error environment of the 
caller is searched for an apphcable error handler, then the environment of the caller’s 
caller, and so on 

11 1C 

a) Compiling a COMPOOL reserves space for the variables declared therein Also, 
in most implementations, a template is produced when the COMPOOL is com- 
piled 

b) The COMPOOL template, when included in the compilation of another compila- 
tion unit, makes the vanables declared in the COMPOOL known to that compila- 
tion unit, without causing any space to be reserved for those vanables 

11 2A 

The SCALARs A and B can only be referenced inside the program P but outside the 
FUNCTION block F Inside of F, scoping rules will cause A and B to refer to the 
local INTEGER vanables 

11 2B 

FILTER does not require any of the data m GNC_POOL, so there is no need to in- 
clude the template for GNC_POOL m the compilation of FILTER 

11 2C 


If several compool templates are included in a single compilation, names of vanables 
must be umque, because there is only one scoping level outside the mam block of a 
compilation Hence, it is in general desirable to give compool vanables unique 
names, so that it is possible to refer to any compool from any other compilation 
unit if necessary 
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11 2D 

a) A template for FILTER is needed m order to compile NAVIGATION, and with 
this order of compilation, it would need to be hand coded 

b) In this case, CONTROL needs the template for FILTER 

c) No template need be hand coded, as all will be available when they are needed 

d) This order of compilation is particularly inconvenient, all templates will need to 
be hand coded. 

n 3A 

a) It IS possible that the savings account for one ID might be updated, then the pro- 
cedure interrupt and another account updated When control returned to the 
Hist task, the updating of the checking account would then be done incorrectly, 
transferring funds from one customer to another 

b) If SAVINGS and CHECKING are declared with the LOCK attribute, and the 
transfer iS enclosed in an UPDATE block, there is no possibility of an incorrect 
transfer of funds as descnbed above 

11 3B 

a) in this case, any interruption of an execution of AWARD_ INTEREST by an- 
other process that calls AWARD_INTEREST may cause either an error in up- 
dating the account, or m logging the interest 

b) Make the procedure AWARD_ INTEREST EXCLUSIVE Then there is no possi- 
bility that two processes will attempt to run AWARD^INTEREST concurrently. 
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Solutions 

12 lA 

A J— I I I I 

0 80 200 280 400 480 600 680 800 880 IGOO msec 

B n n n r 

80 160 480 560 740 880 


C It M L_ 

0 160 320 680 



12 IB P 

A 1 
0 


B I ^ I ( t I L 

80 160 493 653 986 


80 280 360 560 640 840 920 

n n n 


C I L_ 

160 240 


740 820 


12 IC 

SCHEDULE X PRIORITYUL REPEAT UNTIL 3 5. 

SCHEDULE Y IN 2 5 PRIORITY(2), REPEAT EVERY 1 UNTIL 6, 


12 2A 


The AT clause allows a process to be scheduled at a definite, predetermined time 
The ON clause, on the other hand, allows a process to be scheduled depending on 
occurrences of an unpredictable nature Either one can be appropnate, depending 
on the desired effect 


12 2B 

Q IS active only at B 

12 2C 


SIGNAL X, will cause X to become TRUE just long enough for all active event ex- 
pressions referencing X to be evaluated In particular, no code testing X as a 
BOOLEAN vanable wilt ever find it TRUE as a result of SIGNAL X, The sequence 
SET X, RESET X, will also cause X to become TRUE, then return to FALSE, but if 
in the meantime the process executing the SET and RESET statements relinquishes 
control, X will remain SET dunng execution of some HAL/S code, and may be 
found to be TRUE if tested 
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12 2D 

SCHEDULE X PRIORITY(l), REPEAT UNTIL TRAN2, 

SCHEDULE Y ON TRANl PRIORITY(2), REPEAT EVERY 1 UNTIL 6, 


12 2E 

a) Unlatched, there is no need to specify LATCHED, so take the default 

b) Latched, it js not possible to signal several events simultaneously 

c) Latched, an unlatched event will always test FALSE 

d) Latched, RESET is illegal for an unlatched event 

e) Unlatched, presumably the loop is to execute once for each event transition, 
which would probably not happen if the event were SET and remained on 

12 2F 

SCHEDULE T ON MASTER PRIO(999) REPEAT, 


T TASK, 

RESET COMPL, 

WAIT FOR HMASTER, 
SET COMPL, 

WAIT FOR MASTER, 
CLOSE T, 

12 3A 

M 
II 

n 

M 
H 

n 

M 
M 
M 
M 
H 
M 
H 


12 3B 


PROGRAM, 

DECLAKE DEMOM INTEGER INITIALllO); 
SCHEDULE T PRIORITY! 99?1, REPEAT UNTIL 1; 
T 

TASK, 

WAIT UNTIL 1 / DEHOrt, 

WRITEIS) runtime; 

DEHOM = QENOM - £, 

IF DEHOM < 1 THEM 
DEHOM = i; 

CLOSE T, 

CLOSE P, 


Unless something causes P to exit from the DO WHILE TRUE loop, CANCEL P will 
have no effect 

If X is necessary to keep P as it is, it can be stopped with 
TERMINATE P, 

However, it is safer simply to remove the DO WHILE TRUE, and END, statements 
from P, and denve the same effect from wnting 
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FSW 

PflOER*(1. 

DSCURE VECTOR, 

^CSlTIDHi ATTITUDEf VELDCUtr 
DECLARE SCALAR, 

PITCH_COMMA^D, ROLL_CCJ«AHO , 
•DECURE DESTItUTIOff VEC70R, 

DECLARE ARRAYC4t» 

SENSEO.ATTlTUOE VECTOR, 

5EHSE0 VELOCITY VECTOR* 

INPUT. PROC 
PPOCEDL'RE , 

CLOSE tHrUT.PROC, 

ELEVOM CKOS 
PROCEOURR, 

CLOSE SLEVGH_CKOS> 

TELEMETRY 

PROCEDURE. 

CLOSE TELEMETRY, 

RUDDER Cr.DS 
PROCEDURE. 

CLOSE RUDDER CtlDSi 
GUZDAHCE 

procedure. 

CLOSE 6LFI0AKCE, 

FC.,GAIh5 

PROCEDURE, 

CLOSE FC.6AIHS, 

NAVICATKH 

PROCEOUPE, 

CLOSE MAVIBATIOH, 
oispLAr^upor 
PROCEOUSEi 
CLOSE DISPUY.UPOT, 

SCHEDULE Ti PRIORITYC^I, REPEAT EVERY 1, 
SCHEDULE T2 P3I0aiTY(3K REPEAT EVERY 2. 
SCHEDULE T3 PRIORITHE), REPEAT EVERT 
SCHEDULE T4 PRIORlTYdl, REPEAT EVERY 6. 

Tl 

task. 

CALL THPUT PflOC, 

CALL ELEVO.M CnOS, 

CALL telemetry, 

CLOSE TI, 

T2 

task; 

CALL RLE:DER CMOS. 

CALL GUIDANCE, 

CLOSE T2, 

T3^ 

task; 

CALL FC^GAlNS. 

CLOSE T3, 

TASK, 

CALL KAVICATICH, 

CALL OISPLAY_UPOT, 

CLOSE T4, 

CLOSE PSU, 


/« SCALE Ar^D FORMAT DATA FROM SEKSORS ^ 


COMMAND AEPOSURFACES */ 


/* DDKKLIHK STATUS VARIABLES * 


/« CONTROL YAW AXIS */ 


/X COKPLITg OEStREO FLIGHT PATH 


COMPUTE COHTPOL UW GAINS » 


COHPUT REAL P05ITIO>1 AND VELOCITY * 


/* REFRESH CRT 


The pnonties here serve to Rx the order of execution to be identical with that in the 
chapter seven example 
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M 
n 
M 

n 
n 
n 
rt 
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H 

n 

H 
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FSH 

PROGRitt» 

D£CLAAE VECTO^j 

POSITION* ATTITUoe* VeLOCITr^ 
DECLARE SCALAR r 

PITCH.CCKHAinJ * ROLL.COmiAND * 
DECLARE DESTIIU.TIO}* VECTOR* 
declare ARRATC&]. 

S£HSS0_ATmU0S VECTOR* 

SENSED VELOCITY VECTOR* 
DECLAPE Tl.DOWE EVENT, 

IMPUT.FROC 
PROCEDURE I 
CLOSE INPUT_PSOCr 
ELEVO'‘J_CroS 
PROCEDURE* 

CLOSE ELEVOH_CttDS, 

TELEMETRT 

PROCEDURE, 

CLOSE TELEttETRT*- 
R UDDER C“05 
PROCeOuPE, 

CLOSE PUDDER.CKDS, 

GUIOAttCE 

PROCEDURE* 

CLOSE CUIOAWCE, 

PC GAIPrS 
PROCEDURE* 

CLOSE FC.OAIKS, 

NAVIGATION 

PROCEDURE* 

CLOSE WAVIGATIOH, 

DISPUY^UPOT 

PROCEDURE* 

CLOSE DISPLAY.UPOT, 

SCHEDULE Tt PRIOfilTYIl)* REPEAT* 

SCHEDULE T2 FRIOPITYtaJ, REPEAT, 
schedule T3 FPIOPITYlSn REPEAT* 

SCHEDULE T4 PRIORITY* * REPEAT, 

Tl 

TASK* 

CALL Ih=^„FHOC; 

CALL ELEVON^CMDS*. 

CALL TELEMETRY, 

SIG‘UL Tl_OOHEi 
CLOSE Tlr 
T2 

TASK, 

WAIT FOR Tl.DOHE, 

WAIT FOR Tl DONE, 

CALL RUDDER’cttOS, 

CALL GUIDANCE, 

CLOSE T2, 

T3 

TASK, 

DO FOR TEttPORARY I s 1 TO A» 

HAIT FOR T1_D0N5, 

END, 

CALL FC GAINS, 

CLOS£ T3, 

T4 

TASK, 

DO FOR 7EHFCRARY T = 1 TO a, 

HAIT FOR Tl DOME, 

END. 

CALL NAVlGATimr, 

CALL DISPLAY UPDT, 

CLOSE TAi 
CLOSE FSU, 


SCALE AND FORMAT DATA FFDM SENSORS h/ 
COttttArro AEROSUF7FACES »/ 

/M DOWNLINK STATUS VARIABLES V 
/« CCMTROL YAM AXIS 
COMPUTE DESIRED FLIGHT PATH 
/=* COMPUTE CONTROL LAM CAIH5 »*/ 
/* COMPUTE REAL POSITION AttD VELOCITY «/ 
/* REFRESH CRT «f/ 


This solution guarantees that the various tasks will never be executing any of their 
procedures simultaneously Thus avoiding the need for UPDATE block protection 
of any shared variable 
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Solutions 


13.1A 

a) If FLAGS AND BIN' 1 10000000000’ = BIN' 1 10000000000’ 

b) If FLAGS AND BIN'OlOl 01010101’ = BIN'OOOOOOOOOOOO’ 
or 

FLAGS AND BIN'OJDOOOO 1 1 1 1 1 1 ’ = BIN'OOOOOO Hi 1 1 1 ’ 

c) IfFLAGS = BINMOIOIOOOOOIO’ 

d) IfFLAGS AND BIN'l 1 101000001 1’ = BIN' 10101 0000010’ 


13 IB 


K 

n 

M 

H 

M 

E 

tl 

S 

rt 

E 

H 

tt 


13 1C 


M 

K 

H 

M 

M 

rt 
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E 

tl 

S 

tl 

M 

n 

tl 

E 

H 

S 

H 

H 


EXEStCISE C: 

PROGRAM, 

OECURE TABLE AHftAYfSO) BIT<2A); 

SET_BITS: 

PROCEDURE (EMTRr. VALUE)? 

DECLARE INTEGER, 

ENTRY, VALUE? 

TABLE = BIT (VALUE)? 

DIV(ENTRY,A)"6 AT [6 I100( ENTRT,A)tl) 6 AT tf-5 

CLOSE SET_BITS? 

GET BITS' 

FUNCTIONC ENTRY) INTEGER. 

DECLARE ENTRY INTEGER? 


RETURN IHTEGERCTABLE 


DIV[ENTRY,A)-6 AT G MODI EHTHY,4)tl 


CLOSE GET_BITS1 
CLOSE EXERCISE_C; 






Appendix C C 49 


« 

NORMAl. 


H 

FUNCTION(UllNORM) BIT(32), 


rt 

DECURE UNhtORH BIT(321, 


H 

DECLARE B BIT(32), 


M 

DECLARE COUNT INTEGER, 


£ 



M 

IF UNNDRM - HEX'OOOOOO' 

THEN 

5 

9 TO 32 


t1 

RETURN HEX'OOOOOOOD'; 


E 

. 


t1 

B = UNHORH, 


E 



(1 

DO FOR COUNT = 1 TO 6 KHILE B 

= KEX'O’I 

S 

4 

AT 9 

E 



M 

B = BIKSHLlINTEGEHlB 1, 4)); I 

S 

24 AT 9 

24 AT 9 

E 

. 

. 

hi 

8 = BIT CINTE6ER10 ) - I); I 

S 

7 AT 2 7 AT »-6 

7 AT 2 

H 

EW)5 


E 



H 

RETURN B, 


M 

CLOSE NORMAL. 



13 IE 

A OUTPUT- 1E5 INTEGER(1NPUTS(4 AT 1)) + 1E4 1NTEGER(INPUTS 
(4 AT 5)) + 

1E3 lNTEGER(INPUTSi:4 AT 9)) + 1E2 INTEGER(INPUTS 
(4 AT 13)) + 

lEl 1NTEGER(1NPUTS(4 AT 17)) ^ INTEGER(INPUTS 
(4 AT 21)). 

13 IF 

A OUTPUT = INTEGER(BIT(CHARACTERSC@HEX) (INPUT))), 

13 2A 


1 ) Partitions of bit stnngs 

2) Columns of a matnx 

3) A structure node with copiness 
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13.2B 

a) Yes, if a name vanable points to some variable m an outer code block and a van- 
able IS checked in an inner code block vi'ith the same identifier as that the name 
vanable points to, the outer vanables can be referenced 

“ b) No, need more information than the address which is all the name vanable 
allows 

c) Yes, name variables allow sharing Several name variables can pomt to the same 
data item 

d) No, it IS possible to go up and down name pointers but not reference an absolute 
address 

e) No, name vanables can only point to data of the same type they were declared 

13 3A 


STRUCTURE LOOP 
1 VALUE INTEGER, 

1 NEXT NAME LOOP-STRUCTURE, 
DECLARE CIRCLE LOOP-STRUCTURE, 

NAME(CIRCLENEXT) = NAME (CIRCLE), 


13 3B 


STRUCTURE TQE 
1 TIME SCALAR, 

1 ACTION NAME ACTIONS-STRUCTURE, 

1 NEXT NAME TQE-STRUCTURE, 

STRUCTURE ACTIONS. 

1 ACTION INTEGER, 

1 AFFECTED-PROCESS NAME PROCESS_CONTROL-STRUCTURE, 
1 NEX NAME ACTION-STRUCTURE, 


Ime 28 


DECLARE NAME TQE-STRUCTURE, NEWTQE, ENT, 
DECLARE NAME ACTIONS-STRUCTURE, NEWACT, ENTACT, 

NEW TQE TIME = WHEN, 

NEWACT ACTION = WHAT, 

NAME(NEWACT AFFECTED„PROCESS) = NAME(PROCNAME), 


after 
Ime 37 


NAME(ACTV_Q ACTION) = NAME(NEWACT), 
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after 
hue 40 


IF ENT NEXT TIME = NEWTQETIME THEN DO, 

IF NAME(ENT ACTION) = NAME(NULL) THEN DO, 
NAME(ENT ACTION) = NAME{NEWACT), 
RETURN, 

DO UNTIL NAME(ENTACT NEXT) = NAMEfNULL) 

' NAME(ENTACT) ^ NAME(ENTACT NEXT), 

END, 

NAME(ENTACTNEXT) = NAME(NEWACT), 

RETURN, 

after 44 

NAME(ENT ACTION) = NAME(NEWACT), 
after 50 

NAME(NEWTQE ACTION) = NAME(NEWACT), 


13 3C 

If PCB IS first or last m the ready queue, the code to remove PCB from the ready 
queue will not work To avoid the difficulty, rewnte STALL as follows 

STALL PROCEDURE ASSIGN(PCB), 

DECLARE PCB PROCESS_CONTROL-STRUCTURE, 

C 

C Remove from ready queue 
C 

IF NAMEfPCB LAST)=NULL THEN NAMECPCREADY)=NAME(PCB NEXT), 
ELSE NAME(PCB LAST NEXT)=NAME(PCB NEXT), 

IF NAME(PCB NEXT)n=NULL THEN NAMEfPCB NEXT LAST)=NAME 
{PCB LAST), 

C 

C Add to stalled queue same as in the text 
C 

NAMEfPCB NEXT) = NAME(STALLED), 

NAME(STALLED) = NAME(PCB), 

CLOSE STALL, 






one 
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I3A PC_ENQUEUE PROCEDURE ASSIGN(PCB), 

DELCARE PCB PROCESS^CONTROL-STRUCTURE, 

DECLARE PCPTR NAME PROCESS„CONTROL'STRUCTURE, 

IF NAME(READYPC) = NULL THEN DO/ /''empty queue' 
NAME(READYPC) = NAME(PCB), 

NAME(PCB LAST), NAME(PCB NEXT) = NULL. 

RETURN. 

END, 

NAME(PCPTR) = NAME(READYPC), 

DO WHILE NAME(PCPTR NEXT) NULL, 

IF PCPTR PRI0RITIE<PCB PRIORITIE THEN DO, 

NAME(PCB LAST) = NAME(PCPTR LAST), 

NAME(PCB NEXT) = NAME(PCPTR), 

IF NAME(PCB LAST) ~\= NULL THEN 
NAME(PCB LAST NEXT) = NAME(PCB). 

RETURN. 

END, 

NAME(PCPTR) = NAME(PCPTR NEXT), 

END, 

PCB IS LOWEST PRIORITY TAG ON END OF LIST 

NAME(FCPTR NEXT) = NAME(PCB), 

NAME(PCB NEXT) = NULL, 

NAME(PCB LAST) = NAME(PCPTR), 

CLOSE PC_ENQUEUE, 
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HEXCALCS 

paograh: 

DSCLAKE IHTECER DOUBLE. 

INTI. 1NT2, 

DECLft!!E INLINE CHARACTER! SO ) > 

DECLARE PLUS BOOLEAN, 

DECLARE K INTESER, 

READALL(51 inline; 

INLINE = TRIHC INLINE 3, 

K = INDEX! INLINE, ■+'], 

IF K > 0 THEN 

PLUS = TRUE, 

ELSE 

DO, 

PLUS = FALSE, 

K s INDEX! INLINE, •-*), 

END, 

INTI s IMTEOER !BIT I inline ))i 

DDOUBLE 9HEX 1 TO K-1 


I 

INT£ s INTEGER I BIT [INLINE ij, 

aBOUBLE aHEX K+1 TO # 


IF PLUS THEN * 

I!fTl = INTI + INT2, 

ELSE 

INTI = INTI - INT2, 

HRITE(6) INTI, CHARACTER t8ITIINTI)>; 

aHEX 

CLOSE KEXCALC; 
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ABS 

ABVAL 

ACCESS 

AFTER 

ALIGNED 

AND 

ARCCOS 

ARCCOSH 

ARCSIN 

ARCSINH 

ARCTAN 

ARCTANH 

ARCTAN2 

ARRAY 

ASSIGN 

AT 

AUTOMATIC 

BIN 

BIT 

BOOLEAN 

BY 

CALL 

CANCEL 

CASE 

CAT 

CEILING 

CHAR 

CHARACTER 

CLOCKTIME 

CLOSE 

COLUMN 

COMPOOL 

CONSTANT 

COS 

COSH 

DATE 

DEC 

DECLARE 

DENSE 

DEPENDENT 

DET 

DIV 

DO 
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HAL/S Reserved Words 


DOUBLE 

NAME 

SINGLE 


NEXTIME 

SIZE 

ELSE 

NONHAL 

SKIP 

END 

NOT 

SORT 

EQUATE 

NULL 

STATIC 

ERRGRP 


STRUCTURE 

ERRNUM 

OCT 

SUBBIT 

ERROR 

ODD 

SUM 

EVENT 

OFF 

SYSTEM 

EVERY 

ON 


EXCLUSIVE 

OR 

TAB 

EXIT 


TAN 

EXP 

PAGE 

TANH 

EXTERNAL 

PRPO 

TASK 


PRIORITY 

TEMPORARY 

FALSE 

PROCEDURE 

TERMINATE 

FILE 

PROD 

THEN 

FLOOR 

PROGRAM 

TO 

FOR 

RANDOM 

TRACE 

FUNCTION 

TRANSPOSE 

RANDOMG 

TRIM 

GO 

READ 

TRUE 

READALL 

REENTRANT 

TRUNCATE 

HEX 

REMAINDER 

UNIT 

IF 

REPEAT 

UNTIL 

REPLACE 

UPDATE 

IGNORE 

RESET 

IN 

RETURN 

VECTOR 

INDEX 

REMOTE 

INITIAL 

RIGID 

WAIT 

INTEGER 

RJUST 

WHILE 

INVERSE 

ROUND 

RUNTIME 

WRITE 

LATCHED 


XOR 

LENGTH 

SCALAR 


LINE 

SCHEDULE 


LJUST 

SEND 


LOCK 

SET 


LOG 

SHL 

SHR 


MATRIX 

SIGN 


MAX 

SIGNAL 


MIDVAL 

SIGNUM 


MIN 

SIN 


MOD 

SINK 






INDEX 


ABS 3-5 
ABVAL 3-5 
ACCESS 11-8 
addition 2-3,1-5,3-20 
aggregate 3-3 
ALIGNED 9-19 
AND 4-3,4-16,1-2,13-2 
arguments 7-7,7-12 
arrays 1-1,6 1 
of boolean 6-19 
multiHliniettsional 6-5 
arrayed expression 6-10 
Assembly Language 1-1 
assignments 2-15 
ASSIGN parameters 7-10,9-19 
asterisks (*) 2-15 
AT (arrays) 13-8 
AT (real-time) 12-7,12-8 
attributes 2-3,2-11 
AUTOMATIC 7-14,7-15,11-18 

BIN 13-4 

BIT 1-2,4-16, 13-1, 13-6 
btt strings 4-18,8-5,13-1 
length of 13-2 
blanks 2-3 
block structure 11-7 
BOOLEAN 1-2,4-16,4-20,13-1 
branchmg 4-20 

CALL 7-10 
CANCEL 12-6, 12-17 
CAT 8-12 
CEILING 34 
channels 2-5,2-16,8-1 
CHARACTER 8-12 
character strings 8-12 
CLOSE 2-S 
COLUMN 8 6,8-8 
columns 2-5 
common blocks 1-1 
comments 2-1, 2-2 
comparisons 4 19,4-20 
compilation unit 11-1 
compiler 14 
compder directives 84 
components 3-3 
compool 11-1,11-5 
compound statements 4-1 
concatenation 8 12 
bit 13-2 


corasub 11-3 
CONSTANT 24,2-12 
conversions 2-16 

DECLARE 1-2 
group 2-1 
simple 2-11 
factored 2-11 
compound 2-11 
default tab 8-3 
DENSE 9-18,9-21 
DET 3 5 

DEVICE directive 84 
division 2-3,3-20 
dollar sign (S) 3-7 
DOUBLE 3-16 
DO 4-9 

CASE 4-20,4 21 
FOR 5-1 

FOR (discrete) 5 6 
UNTIL 5-1, 5-8 
WHILE 5-1, 5-7 
dynamic storage allocation 1-3 

EBCDIC 13 8 
element 2-13 
ELSE 4-1,44 
END 4-9, 5-1 

EQUATE EXTERNAL 13-23 
ERRGRP 10-14 
BRRNUM 10 4 
error lO-I 
codes 104 
handler 10 5 
group 10-5 
recovery 10-1,107 
deactivation of 10 5,10 8 
i/o 104 
EVENT 12-8 
event variables 12-9 

FALSE 4-16 
FILE 8-1, 9-19 
file 8 21 

address 8-21 
expression 8 21 
number 8-21 
random access 8-21 
fixed point 3-19 
fixup lO-I 

restoration 10 6 



1-2 Index 


floating point 3-19 
FLOOR 3-t 
format 

Single line 2-9 
multiple line 2-9 
FORTRAN 1-1 
FSIM 1-3, 1-4 
functions 7-1, 11 -I 
bulit-m 3-1, 3-3 
invocations 3-19 
of arrays 6-22 
user defined 7-1 

GOTO 1-1,1-2,4-2.4-11 

HEX 134 
hooks 1-3 

identifier 2-1,2-3,5-19 
IF 4-1,4-2,44,4-20 
IGNORE 10-6 
IN 12-7,12 8 
INCLUDE 114 
indexing 13-12 
indirection 13-12 
INITIAL 2-12 
integers 1-1,2 4 
INTEGER 2-11 
INVERSE 3-5 
i/o 1-3,14,8-1 
i/o control functions 8 6 
i/o errors 104 

]ob control language 8-1 

keywords 1-3, 2-3 

labels 2-3 
LATCHED 12-10 
LENGTH 8-17 
library routines 3-1 
LINE 8-6, 8-8 
lines 2-2 
lists 13-15 
listing 

compiler 2-9 
source 2-9 
literals 2-3,3-19 
LOCK 11-15, 11-16 
locked data 11-15 

machine language 1-1 
macros 14 


macro names 3-13 
mantissa 3-16 
matrix 1-1,2-12,2-13 
MOD 3-5 

multiplication 1-3,2-5,3-20 
cross 1-3 

multi-piogramimng 11-13 

NAME 9-19, 13-13 
namevanables 13-11 
declaring 13-13 
disadvantage 1 3-14 
mitializing 13-14 
4-22, 5-1 referencing 13-14 

NASA 1-1 
negation 3-20 

NOT i-2, 4 8, 4-3, 4-16, 13-2 
NONHAL 7-14, 7-15 

object module 1-3 
OFF ERROR 10-8, 10-10 
ON 12-8 
operators 2-3 
OR 1-2,4-3,4-16,13-2 

packing 13-5 
PAGE 8-6, 8-8 
PAGED 84 
parameters 7-7,7-12 
partition subscript 3-8 
percent macros 13-20 
pomter value 13-18 
precedence 
operator 2-6 
expression 3-19 
operations 3-20 
precision 3-15 
Specifier 3-18 
PRIORITY 12-5 
PL/1 1-3 

process queues 12-5 
process pnonty 12-3 
process procedures 7-9,11-1 
product 

dot 1-3,2-8,3-20 
cross 1-3, 2-8 
matrix 2 8 
inner 3-20 
vector matrix 2-8 
vector outer 2-8 
scalar 3-20 
PROGRAM 2-1 
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queues 13-15 

READ 2-16.2-1,8-1,8-9 
READALL 8-1,8-19 
teal I-l 

real-time 1-1, 12-1 
recursion 1-3 
REENTRANT 11-17 
register 1-5 
REPEAT 4-22,5-11 
REPEAT AFTER 12-6 
REPEAT EVERY 12-1,12-5,12-6 
repetition factor 2-14,2-15 
REPLACE 3-12,8-2 
RESET 12-11,12-12 
RETURN 4-22,5-3,7-2,7-9 
RIGID 9-20,9-21 
ROUND 3-4 
rounding 3-4 

SCALAR 2-11 
scalars 2-4 
scaling 
vector 2-8 
matrix 2 8 

SCHEDULE 12-1,12-2,12-12 
scopmg rules 7-13, 11-7 
SEND ERROR 10-12 
SET 12-11, 12-12 

shaping functions 3-2, 3-4, 6-1, 13-6 
CHARACTER 8-15, 13-7 
sharp Sign (#) 2-1 5, 3-9 
SINGLE 3-17 
SKIP 8 6, 8-8 
source 1-1 
Space Shuttle I-l 
structures 9-1 
components 9-11 
copmess 9-12 
copmess specifier 9-13 
declaration 9 3 
matching 9-11 
multi copied 9-12 
template 9-2, 9-6 
terminals 9-6 
unquahfied 9-21,9-22 


SUBBIT 13 8 
subroutines 1-1 
subscnpts 1-2, 2-2, 3-7 
subscnpted identifier 3-19 
subtraction 1-3, 2-5, 3-20 
system 1-3 

TAB 8 6,8-8 
tasks 11-11,11-12 
template 11 -4 

TEMPORARY 4-11,4-12,5-1 
TERMINATE 12-16, 12-17 
THEN 4 1,4-4 
TO 5-1 

tokens 2-3, 2 4 
TRACE 3-5 
TRANSFER 

conditional 4-22 
unconditional 4-22 
TRANSPOSE 3-5 
TRIM 8-13 
TRUE 4-16 
TRUNCATE 3-4 

UNIT 3-5 
UNPAGED 84 
UNTIL 12-7, 12-9, 12-10 
update block 11-15,11-17 
UPDATE PRIORITY 12-16 

variable type 2-9 
VECTOR 2-12 
vector 1-1,2-13 
vector-matnx product 2-8 
vector outer product 2 8 

WAIT 12-9, 12-12, 12-16 
WRITE 2-2,2-16,8-1,8-5 

XOR 4-17 






